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dBI BASIC SdBCOMPILER SERIES 





li C tb t 


dB - SOFTfi, 

ft & ft i: £: $!''•>, ■£• c 7 ) f II ft-ffiy) IS 51(7 ft £ ftv - ' 'C" 1 ''' SV7 I ft x 

T<7) I — ij jz --> s 

;«r>/^777^li, "dB-BASIC" WS$I*C 

r dB - zi y /c 

l7j ztilt. frhXiVm'-BSe) -ftT”SI 

/z. d>ft-/ufti7)ttt &®&t i 
t\ i£tt<ftftfl!rl$!& < $!?&Lft7'n /7Aft„ ZCO'-t-y -y—i/COb 
7!>iOOyXTA7o/7A r dB - IBAS I C j i #f ffl-f & ft t 
ti'i, 

£frt,$km$ftX^fz-?->> |7d /7Ai'«ft;H 0*1464 J: 7 
17 4-») $ ltz 0 X h°— 
fWT”£ i-to 

PC-8801<7)$|iig££[j')o< L ft dB - SOFT <7) r dB-IBASICj 
t r dB - 3 >'<4 x j ht£tz<X)t') i'-f')l'~T'a 77 S > 

ft"ft-/uK£*£ <lZlfX< ?Z$l\ *thZ 

tT Lido flk'N- KcOdB-IBASICRgft'oft'ftAcftnv 

/N *—17 3 >1,, -tf'OfttSL ( ft ? V'o 


0gfP59^ 2 B 1 B 

* ^ iM? 



C- *ij ffl <r> s m ^ 


r dB - IBASICj t r dB-3>^M7j f± N dB-SOFT^'g 
W&'y-jut LT, +frlz*<7)mi&t : fcmitii'XTA.7’v 9"7A 
X'-to ^<X>fZSb. M/XTA t t) 7*0 7i -y x 3 •f-A' • —— X'ICIS 
») 41\ 

r dB-=> 7j 14, 7 d ^AtfOjftjS'ftlc «fc 

7:^41% 4 tz, / X U £ % < t 9 
£©J^£itfD-t&£46lc, G-VRAMt^-7'i?i7 h &mt-£h<nx\ 
*7i?3.7 Y£$)30K'<'( Y iiWZZiX-^'sscj n,X’£tto X 
D /7 i > 9’*?T'<'V ?X>$i,&IBASIC t, SSil&Sffcl-S n > 
'M ^'If-o'C, X h°— -T—i/D /7 A$r 

<15: ££SBf#lt>'4-*\ 


E3 

/HJn 


r dB - 3 7 j f3>^*d^U:V7|-^, -f- 

ixiB.7ttz>ik&. m±<x>mmmz&mt&ztiz 

%')£-to i> L, ffi&itZti&m&lt, hbfrttb r dB-3>/M 

7 iftiffizSQfi]J CT rt^f? ( fi ? '''o 

t 060 tLllrU4 5 *E^t3^H4T@?!7;- , r-7’bVP 
f-t'-'/7F r dB-3>/^ 7j i 
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=1 > /\° -f Jb (7) f II 


y-xyo/7A!i, dB-IBASIC<7M y_hT’+7)-(c BUG 

1. -t—;? (MON) -t 
— KT"iAx>J; 7 i;o- KLT < 

h D R 2: 01 

2. D - F»7i, (h]] GC000 01 iASUt. (C ] foiihbfrtsb 

$ti O') 

>k<r>T— 7 °o — KT'1200,K— f-fe—7'L^V — Xf- 7 ‘&n — p'-f 
&*§£-> *fft4«fth] S9806 0] t LT9806 h(c 1 £-fe >y F LT < 2 

V'„ J/;, 600d<— 9806h(C 0 £-fe-y F Lt < 

3. t CRTiBStc, >i:<7)J; 7 

* l-BASIC COMPILER Ver 1.0* 

TAPE LOAD (Y or N) ? 

tk. -/ F T — 7’fr fcy-X/D / 7 Af’B- Ki'-S YT^Y^r'JcXlT 
T — 7°fr b V-X7’d ?"7 A Sr a — F"1'l>*lr£\ 77-fe ■/ F r — •7‘Sr-fe -y F 

L-C*>fcElfcArtLT< 

as;®- ttcy^ytijity-xyD/^AW^ **1*3 

;L-f sii'&ii, f-yj'Fn- F^fs <&!***& 0 i-d-A-cotlS^ A 
*L?< *r?v> 0 

® 3 >'M K L - X G | CTRL | + [¥1 TM >9 7 ’ 

') 9mz «'Jf t & Z t (2T"tF £-$A, 0 
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4 . iklz, f- 7 'i i ()D-fU;y-X 7 'n/ 7 i ) , i fcf±fC< / -i > / -t 

'Jiitc&S y-xro <7 A cot A-x h <o*£H*L 

tlit, TEXT START K** < r tX h t & ') it, 

TEXT END tc tft < fitrt'X T A- X F L & ') £ to 


5 . V— X7"n A£ a >*<4 )Vi,Xt~T ; J 3- 9 Hcilit #Hfe 

(ADR) 

OBJ ADR (<8000 H) ? Hfl 0 0 0 

t— tl-vn'SM 

zzvt-Ti?!-? Y IS:^°Itg#i4i±o~7FFF 

H T"t„ 

a®- 3 . r-i&^tz i 7 Ki OdB-IBASICcoT >? 7 "'J 

tSoty-xyD <7^<7)Bn^i±T'‘ B lt£'Cl~„ 


6 . T7<*1 7 Mc^il-^fesIT Kux£A*Tt!> t, CRTfflffit^coi t ic 
t„ 

PORT SAVE (Y or N) ? 

Y^mti-^Wri^Li-fo E£A*-f 

4> LG-VRAM_tO>''< ? F 7“n Li to 

( I/Otf- F L X G-VRAM Jilc-fe—« h ) E]£A*t& t 5 . 

> / -t 'J_tX>f/->*i X F <7)3fesi#itkJ; 0 , t7*y x. 9 Y 
7’n /7Ai<-t-7 

V — X7°n <7 i»cot A-x F , ^7y x 7 F 

^iJrg-OA, lt#MT >/^E U 7 F %fgt*t£to 

V — x 7 d < 7 A< 7 )ttX X 

G-VRAMtd-fe —7" (PORT SAVE) Lit„ 
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7. 'k<r> j; 7 (c n >s<y( ytnv— ? 7 fcSI#it£fiBv'T £ i'to 

WORK ADR. (<9800H) ? [ffiO 0 0 

VA'.Sia 

9800hJ; 9 '/yx,<r>r ^x Y -f > Y 

9 ? F £sgi-fJ§-g\ 2 > F iEfflicS&fc& 

^#*&£F&teL J I"o J fc. MfttPCG £ 1£3 *§£•.9000H«_h!:lit„(P 
CGf-^i 9 T7800h~ 8 FFFh) V-XYn /7A(fJfX F ? 

tiott/yi ? F 9 ii#l±9000H -9500 h < 

fet' 1 ;!)* i t'tli 7 o 


8. 3 Me ■? £U0''•>'££ i-f„ 

LINE TABLE DISPLAY (YorN) ? 

V-XYd ?*x.AX>FT lHH->F|'lS't'& tYyi 7 F 7"n T*7A(0#I^, 
Siffi(;^5x1‘l>il'o'l±[Y]$r. S^L^^if'o'iilNlS: A* It < 
(ii#l±E]^A*LT < 

Mtt-C, 0*-£W1-£ A^imU *<7)J: 7 ic^Li-fo 

PASS-1 

PASS-2 

(mm tkTT , $■ f^te l a **£-, ttfct h mt t ? a £ 

•t) 

z<r>9 '/-x7'd/ 7A|:7>^'F /LTtF 3rV'jSffiir#'' 
* 9 Fto dB-IBASIC £#t/o-F'L, ffSV-XYn 7?AW 9 X F 
^MULT < /f?^ 0 

(ex. $L, LIST, CLEAR, etc CFlfelin >/n°Y ;K‘| 
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9. 3 WM sisA { &Tt2> t „ ttyi? 

OBJ END ADR. = . ' : h .* ?'•> x ? i 

var end adr.. 


10. tT'y'i 7 F £G-VRAMlc$j £ Lfc*|r'n-( 6 . OPORT SAVET'H^Atj 
Ltzt%&), ? t,iz>k<F>£ i £ it, 

PORT LOAD (Y or N) ? 

G-VRAMIc?g£ L A T 7' 7 i 7 h T" n ?*7 A Sr 7 4 > 7 * ') tc a - h't& 
*lr£-li[Y]£, n— hX&V'iJrg'lillS: At) LA < IH£Atjt'& £, 

y^y^'mwv-xTn/^Afii, it. 


II. (t>£WiPORT LOAD 

(YorN) ? IrAtliihA:— 9<T>zi-?> K#t>A — p £ t £ t) >7° h 

: s > Xuhl-h^Tf-s-S- ix& 1% — ?<?)?-?> K 

ffit < *r$v-. 0 

3 w-M ;i.LfctA7i 7 h 7"n ?"7 Silrg-li, -JZ'T (h])G 

9803 t Atj Lit. 
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♦ □ v > K 

APPEND 

< Srl+fUffcO i-tf/U 

RUN 

RUN^^-Sr 3 >^4 )vt tzirT : Js. 9 Y 7°n 9'y AfWRUNtffl±> %WT 
Rwx, vuxizffiMt'iix-to gt&ntamit 

mu >?-?') ri"<n,t&\ £A , 0 ■& 

I s CLRffr^£1£o-C< 

$ L 

LfcA'oT £¥?!]£ LTI± 1 T14*^i T*L 

IBASIC^tagjL^ltfi (3 w< 
4 frt&i&'&t) IBASIC(7)eSiB#) fc-j&T$L£^fr U If 
:&f& (S*255$-C) 
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♦—h * > h 


CASE 

*#tc ELSE (±^x. ^ -li:A- 0 

CLEAR 

dB-IBASIC(±$Lf”^-^?lJ<7)ft$ £@56Lt>-'4't. CLEARfidB-IBASIC 
<r>4 >??') fU'OMA.-c^ZhX’i'' ;HiT*£ HtA,„ 

itco&ft 7 *§£\ CLR£1?V'£to 

DIM 

2 * 7 gsb?ij i t\ i± o ~254commr-t 0 


END 

zcofo'frz a >sis( /UL5£?H"S t, E N Dlc^lE-tSilRffT'll^f £f?jtLT 
-t — ^-t— KL&9 i-f 0 

FOR—NEXT 

dB-IBASIC-CliSTEPOii^ii^-C, 3£&*g5g-C£ i-£A,„ -J&1* &«5e& 

GOTO/GOSUB/RESTORU 

GO^TOf±T^„ y'Oi'it (") ~C < <oTf£Ut„ 

(ex. GOTO " DATA PUT") 

STOP 

=!>'■?'( |STOP | ftTV'illi'ENDLIWI 
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DEFCHR$ 

DEFCHRS X\ SifttPCG (Of- f £!£sit 
CLEAR^T'T^X h x i) TcO±|!1£77FFhI-^L 
X PCG Wf-^x U T£'E>"f SffS Lt < 

(fctfL* A > 9 x >j f v'Ov<r>?i.X"t) 

*»{SL &<♦->£, rA-x h i PCGf'-f* r Siro^ 
o, xf •yffrmtitzo ixmmrEzmzizt, 



CLEAR 

&H77FF 


♦AtU^ t- h > > h 

INPUT 

«fcwaasrfg5eii-c§ 4-yA 0 


PRINT # 

dB-IBASIC Tii CRTBSIcWfl. PRINT # 0 coy*T"1\ 


GPUT/MPUT 

GPUT/MPUT i" & t"— f If„ y ^ IJ (7 )^jl IJ T!C 
MEM-’tPOKEzfcTl! 1 # jAtffrltTi'**, f-^x 'J 
GPUT T*f&PCG £ PUTfl. 
«rS\ £x0 7ii7800 H i 0 iJX>T K p X £ * •) it. 
tu If6000 H t, GPUT ts T- 9 £ Aft fc £ f it 

lit CLEARjfC'T^-X h <7)JiR£ 5 FFFh 
L, 6000 H HB<o#f-;x i; T £-E'T iSffS Lit. 
*&«tPCGffiffl-*\ MPUT N GPUTT-X)f*-f xO 
TfitfS<7)JK CLEARzfc-Cr^x i X)±P1*'*P1^? 
ili 1~*>G A-X h <7)7 'J —x U < ir 

0 tt-„ 



■♦—CLEAR 

SH5FFF 
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♦ Xy' l ) - >Xj- h ^ > h 


COLOR 


LINE 

dB-IB A SIC Tii, 

PAINT 


♦4f5fcXT- MVI- 

USR 

dB-IBASICT1±,M»T*(±^ < XT- h / > h T"fo USR comic It®, 

WAIT 

?ISc 1 LX*! L "t 1 msecf^iti” •£> « 


♦-«M» 

FRE 

dB-IBASIC Ti±. ^lirs-frA-X h co^x. ')T£-$-z_i-f<, 
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POS 

dB-IBASIC Ti±X, X tfr'X'Z £t a Nss-BASIC <D 

CSRLIN £ POS (1) 

mumm 

'l'%c£MT&XZ> t^(±, mmmfr£5-z_£-fo 

SIN/COS 

dB-IBASIC T12J£JiMac0fit£4;i, £ Tzm%t i> *> L £ t„ 

RND 

dB-IBASIC T"li Ofrb (iSoofit)- 1 £ Tcxffix>*£f$c£-^x £ to 


FOR—NEXT/GOSUB etc X 9 7 

%'£tMWlV 4 >9 7"') 9>'<)i£ >) 3 >'i\)V£-7is X. 9 V cn^mtht^z^ 
^tzisb^ LOGICAL ERROR T'tSdi*''* 4 ») fz£ 

ihz Lit, 

(GOTO/GOSUB etc) t><a>t<4 0 

it. Kwxt, ^i^cor Fi/xi'fLfci tiiiE 

£ ») t 1" 0 3 ;u-f £ ®[; ^ > X 7"') X_hT"V — X 

(HI A--$-WLT^ii) -t&^ici'K IBASIC t > ^7“') 

Lit. zn^y—x t lx 7>^<y( ;ui tto 
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f 


i-7 =7 "S \1 — (T) □— K t =1 )\y 


dB-IBASIC T —7"C0 B Hie |±, =-777 f—COV — X7"n /7Ai< Aotv> 

£1\ 7'nr7Ali s SlttPCGte*H-&:*.\-7??^—r— 

A<7)tM >7"o 7'7A<7)2oA i 'ltv'-CAo-rv^-t 0 

® IBASIC £&*&£■!*-£ I - „ ( 'J 7 7 L > X7-/ ?#M) 

© tiftft, ST PCGr*— ?<X>7°n /7Ajn- KLJ'fo 

LOAD 0 

® o- PCGiUT^CLEAR^T-liSffiLJ+o 

CLEAR &H5FFF 0 

* PCG<7)f’-?i U 7X>Siffi£;'lt&4, T K L Xl±77 FFh Ti - A f , 

Ti± G PUT <D r'- 7 J- 'J 7 £ 6000 h i 'Mf L-O' •?> X> 7 5 FFFh £ t A- 
X Y<n±mt LTv^to 

© 7°o X' 7 A^SlfrL, StfttPCGr"—') (7800 h~ 8FFFh)(c^^L 

RUN a 

© Lit G < It 0 k t s ;«PCGWf-;7o/7A 

li^flfe 6 <D "CM lit. 

NEW a 


© 'Ale, y-AO^t >'/D/7A^o-KLit, 

LOAD a 

o— K**-7f£, RUN L dB-IBASIC<7)7 >7 7°') 7 U'Ol'TY— Alt 
e:<7M>77°'J 7or-Alirt®&3Sj5M**T*1-i##le|& 
£jWI<, r-AX)iJt LX,^le Wt £*§£•***>») it. *r-cff-5<0j&* 

r n>''”-Ol'j t'-fo 
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U777 tf—£□ U Li7o 

RUN LTzik&\t \ ST0P| 3~f7P 77A£il:<fo N CLS4 
HI T'Hffl^iBLt<t'?K 

© i T^e—7 -t — K lc L i 7„*h] * xfsiic^T;;?.© -t—7-t— Ktc & 0 it. 

MON 0 

© dB-3>''°t 77-7"£-fe-y F L, D-FLit„ h]R2:0 

® n— F"*t7ft, C000H#Jt(cfl%i±"L-r3>/N°^ 7 £Hfr£-7i-t„ 

h ] GC 000 0 

© * I BASIC COMPILER Ver 1.0 * 

TAPE LOAD ( Y or N) ? 

tt*L IBASICCO-f >?-/') 9±T9 -i >7° n /7 A^d- K LTV>3> <X> 
T"7 -E >) ic y — x7'i> 0 i77 £>|n 1£ A* Li 7, 

© OBJ ADR. «8000H) ? 0000 

>klz=t>'<y( 9 \<r>%WCT KlxI±, ;-777t-y-x 

*'*±#^(7)T'|B]1ilC3r7v'i 7 F LAI< < &*) Jt. 
bT'&itirli'AO i4FAcOT'00007)£ i 0] £ffLi7„ 

© PORT SAVE ( Y or N) ? 

r AX F X>7°o 9’yU (V — X) t tT/i 7 F COT FT 

i7X>T\ ^,^G-VRAM±IC3>7^^f;uLX;77”yi y F £rff— F -fe —7" 

L&ltFUi'&O 

® WORK ADR. (<9800H) ? 0000 

9000 0 i L A < 9800 h <fc ») ©;?v>T F"L X^'^^cOT®* 5 ', 0 

~ 8FFF h i "Ctl AFl-FFl'/ — X t A X F , GPUTcor'-y^PCGcOr"- 
y* { Ao7^7if i.i-£A 0 -JZ-79000Ht Li7o 
® LINE TABLE DISPLAY (Y or N) ? 

Irc^TA V-xcoFTS-f-tcttiS-fST F" l X ^Wrs-tbt' f i 

Jit. ®#lS^AtjL-r < *f ?^ 0 

cfLT"7>7s"^;i.^|g^L, it/i y FI±G-VRAM_h(c-fe-7''?Fii7 0 
( G-VRAM lzW£&£tlh<0 T'Biffiic 7'7 74-y yX>F*-yF KWr ,? Ft i7) 


12 



(D PASS- 1 
PASS-2 

^■/yxn, ai.xfWk<r>x.> YT Yvx-h<^7r^nt-t. 

PORT LOAD (Y or N) ? 

L * { D- 

® Kic&O ii\ (h]*<^§*ii-t) h]G9803 01 

3 IV^titz 5-7 7 i y tr—Wf/yi ? h 7 "n t\ 

t-7'd - Kls J: 2> □ >'<4 )V 

if 3>^M -7£j|2t!j$-t±-j-fo 

© TAPE LOAD (Y or N) ? 

0$- AAf U dB-IBASICr — yB®«PCG«f-? £□- K Lit. 

© OBJ ADR. (<8000H) ? 0000 01 
® PORT SAVE (Y orN) ?Y0 
© WORK ADR. (0800H) ? 9000 0 
© LINE TABLE DISPLAY (Y or N) ?N0 
© 3WM/U&. PORT LOAD (Y or N) ?Y0 

© •£ — KtcH-ofcfe, t~T : J i 7 h Sr^tfrL It. h]G98O30 
© K&0 it.S(/3>^ , '( 7£n — KLSIfrLi-fo 

h ] R 2: 0 
h] GC000 0 

© TAPE ROAD (Y orN) ?Y0 

dB-IBASIC B|«;-777 t°— CO / -i >7“n K Lit, 

© OBJ ADR. (<8000H) ? 0000 0 
© PORT SAVE (Yor N) ?Y0 
@ WORK ADR. «9800H) ? 9000 0 
® LINE TABLE DISPLAY (Y or N) ?N0 
® PORT LOAD (Y or N) ?Y0 

® h ] G9803 0 

Y— ft-t-t o 
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^dB-3 TT-ywESCU, n>/N"d 7i:-77v t°—A r Ao t>' £ 


1" 0 o— Kco^iSli^Oii*) T-to 

] R2: 0 
] GC000 a 

#t>\ D— K&Tft'X— 

Gfali 3 7£ o—K-t*-f i+o £*fL, dB-3w>°d77> 

xa ») 7*< ^*?v> 0 

il'fi'li V —X7"n 7'7A^ dB- 3 y'-f'f 7t3>/'-( ;Hf < fc* ? t'„ 




1 DEFCHR^(.&He0)=HEXCHR^( " 0000000000 00000 0000E1 FI F3F3F3F1 F0 0 0E1 FI F3F3F3F1 F" ) 

2 DEFCHR1K&H01>=HEXCHR*<"000000000000000000000F3F3F3F1F1F00000F3F3F3F1F1F") 

3 DEFCHR*<&H02>=HEXCHR*<"000000000000000000000000030F1F1700000000030F1F17") 

4 DEFCHR*<&H03)=HEXCHR*< " 000000000000000037373F1F3F3F3F0037363F1F3F3F3F00 ") 

5 DEFCHR*(&H04)=HEXCHR*<"0000000000010630000000000006193F0000000000000030") 

6 DEFCHR*<&H05>=HEXCHR*<"78003060F8F410187F077F1E060B0C2078003060F8F47018") 

7 DEFCHR*<&H06>=HEXCHR*< - 00 0 00000 00000 0 01000000000000071 E000 0 00 0 0 00 0000 00" ) 

8 DEFCHR*<&H07)=HEXCHR*("0630780070FCF01C397F7F071F020F000030780070FCF07C") 

9 DEFCHR*<&H08)=HEXCHR*<"00000101011A0E0408142A048A54A05100000101011A0E04") 

10 DEFCHR*(&H09)=HEXCHR*<"0C1C001030010100A201A8448A142A150C1C001030010100") 
1 1 DEFCHR*<ficH0.A)=HEXCHR*<" 0006334F4F36230 1 0000304848381 42A0006334F4F36230 1") 

12 DEFCHR*<&H0B>=HEXCHR*<"213103020B720004944AA450A000AA55213103020B720000") 

13 DEFCHR*<&H0C)=HEXCHR*<"0006334F4F3E3F7F00003048483000000006334F4F3E3F67"> 

14 DEFCHR*(&H0D>=HEXCHR*("7FFEC6000338101800012858A247AA451F1E060008381018"> 

15 DEFCHR$<&.H0E>=HEXCHR*<"0006334F4F3E3F7F00003048483000000006334F4F3E3F67") 

16 DEFCHR*<&H0F>=HEXCHR*<"7FFFFC0 00C7E7E3C000 0 0 000 0 0 00000 01 FIF0 460 0C7E7E3C") 

17 DEFCHR*(&H10>=HEXCHR*<"00000000000000000000F0FCFCFCF8F80000F0FCFCFCF8F8") 

18 DEFCHR*(&H11>=HEXCHR$<"00000000000000000070F8F8FCFCFCFS0070F8F8FCFCFCF8") 

19 DEFCHR*<&H12)=HEXCHR*<"000000000000000000000000C0F0F8E800000000C0F0F8E8") 

20 DEFCHR*(&H13>=HEXCHR*<"0000000000000000ECECFCF8FCFCFC00EC6CFCF8FCFCFC00"> 

21 DEFCHR$<&H14)=HEXCHR$<"000000000000600C0000000000E098FC000000000000000C") 

22 DEFCHR*<&H15)=HEXCHR*<"1E000C061F2F0818FEE0FE7860D030041E000C061F2F0E1 8") 

23 DEFCHR$(&H16)=HEXCHR$<"0000000000000010000000000000E0E80000000000000000") 

24 DEFCHR*<&H17)=HEXCHR*<"600C1E000E3F0F389CFEFEE0F840F000000C1E000E3F0F3E"> 

25 DEFCHR*<&H18>=HEXCHR*<"00008080C0702000A854285122058A4900508890C2742208"> 

26 DEFCHR$<&H19)=HEXCHR*<"001030A000800000A245CA152A542810021130A000800000") 

27 DEFCHR*<&H1A)=HEXCHR*<"0060CCF24204048400000Cl2AA54A8510060CCF242040434") 

28 DEFCHR*<&H1B)=HEXCHR*<"D0B00008182E00002A07A2572200AA55D0B00008182E0000") 

29 DEFCHR*<&H1C)=HEXCHR*<"0060CCF2F27CFCFE00000C12120C00000060CCF2F27CFCE6") 

30 DEFCHR*<&:H1D>=HEXCHR*< "FE7F1 B0 0 1 0 7460220000E452A50A9E1 4F87800041 0 746022" ) 

31 DEFCHR$<&H1E)=HEXCHR$("0060CCF2F27CFCFE00000C12120C00000060CCF2F27CFCE6") 

32 DEFCHR*<&H1F)=HEXCHR*<"FEFF3F00307E7E3C0000000000000000F8F82006307E7E3C") 

33 DEFCHR$(&H20)=HEXCHR$("000000000000000000000000000000000000000000000000") 

34 DEFCHR*<&H21)=HEXCHR*< "00000000000000000000001 83C7E18300000000000001830 ") 

35 DEFCHR*(&H22)=HEXCHR*<"00FCFEDADADADA0000FCFEDADADADA0000FCFEDADADADA00") 

36 DEFCHR*(&H23)=HEXCHR*<"00EEEEFEFEEEEE0000EEEEFEFEEEEE0000EEEEFEFEEEEE00") 

37 DEFCHRf-<&H24>=HEXCHR*<"007C383838387C00007C383838387C00007C383838387C00") 
33 DEFCHR*<&H25)=HEXCHR*("000000383800000000000038380000000000003838000000" ) 

39 DEFCHR*<&H26>-STRING*<3,HEXCHR*<"7CFEF87C3EFE7C00")) 

40 DEFCHR$<&H27)=STRING$< 3,HEXCHR$("007CE6E0E6FE7C00")) 

41 DEFCHR*<&H28)=STRING*<3,HEXCHR*<"007CE6E6E6FE7C00")) 

42 DEFCHR*<&H29)=STRING$<3,HEXCHR*<"00FCEEEEFCFEEE00")> 

43 DEFCHR*<&H2A>=STRING*<3,HEXCHR*<; "007EF8FEF8FE7E00" ) ) 

44 DEFCHR*<&H2B)=STRING*(3,HEXCHR*<"007EF8FEF8F87800")) 
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45 DEFCHR$(&H2C)=STRING$< 3,HEXCHR$<"00FCFEE6E6E6E600")) 

46 DEFCHR*<&H2D>=STRING$(3,HEXCHR$< M 3C4299A1A199423C")) 

47 DEFCHR*<&H2E>=STRING*<3,HEXCHR*<"00063E7E66663E00">) 

48 DEFCHR*(&H2F)=STRING*<3,HEXCHR*<"0000E0F9E5E4F900")) 

49 DEFCHR*(&H30)=STRING*<3,HEXCHR*<" 7CEEEEEEEEEE7C00 11 > > 

50 DEFCHR*(&H31>=STRING*< 3,HEXCHR*<"3878383838387C00")) 

51 DEFCHR$<&H32>=STRING*<3,HEXCHR*<"7CEE0E3C70FEFE00")) 

52 DEFCHR*<&H33>«STRING*<3,HEXCHR*<"7CEE0E3C0EEE7C00")) 

53 DEFCHR*<&H34)=STRING*<3,HEXCHR*<"3C7CDCDEFE1ClC00"> > 

54 DEFCHR$(&H35)=STRING$< 3, HEXCHR$ ( " FEE0FC0E0EEE7C00 " ) ) 

55 DEFCHR*<&H36)=STRING*<3,HEXCHR1><"7CEEE0FCEEEE7C00")) 

56 DEFCHR*<&H37)=STRING$<3,HEXCHR*<"FEEE0E1C38383800">) 

57 DEFCHR*<&H38>=STRING*<3,HEXCHR*<"7CEEEE7CEEEE7C00" >) 

58 DEFCHR*<&H39)=STRING*<3,HEXCHR$<"7CEEEE7E0EEE7C00">> 

59 DEFCHR$<&H3A)=STRING$< 3,HEXCHR$("00FEFE3838383800")> 

60 DEFCHR*(&H3B>=STRING*<3,HEXCHR*<"007CFEE6E6FEE600■)) 

61 DEFCHR$ < &HA8 > =HEXCHR$("0000000000000000FEFEFE00EFEFEF000000000000000000"> 

62 DEFCHR*<&HA9)=HEXCHR*("FEFEFE00EFEFEF0000000000000000000000000000000000 11 ) 

63 DEFCHR*<&H3C)=HEXCHR*<"FCFE667C66FEFC00FCFE667C66FEFC00FCFE667C66FEFC00") 

64 DEFCHR$(&H3D)=HEXCHR$<"000000B0F676E000000000B0F676E000000000B0F676E000"> 

65 DEFCHR$<&HB8)=HEXCHR*X" 000000000000000000000000071F1 73700000000071 FI 71 7" ) 

66 DEFCHR$<&HB9)=HEXCHR$("00 00 00 00 000 00 0 00371 FI FI FI FIF3F1C371FI FI FI FIF3F1C") 

67 DEFCHR*C&HBC)=HEXCHR*<"0000000000000000000000071 FI 737370 000 000 71 FI 71737"> 

68 DEFCHR*(&HBD)=HEXCHR*<"00000000000000001 FI FI FI FIF0F03071FI FI FI FIF0F030 7") 

69 DEFCHR*(&H44)=HEXCHR*<"00003060400000000006337F7F3F3F7F0000306040000000") 

70 DEFCHR*''&H45)=HEXCHR*<“80808000000000007F7F7F3F03787E3C8080804000000000") 

71 DEFCHR*(&H46)=HEXCHR*("003060400000000006337F7F3F3F7F7F0030604000000000") 

72 DEFCHR*<&H47>=HEXCHR*<"00406000000000007F3F03000C0000000040606000000000") 

73 DEFCHR$<&H48)=HEXCHR*("003060400000808006337F7F3F3F7F7F0030604000008080") 

74 DEFCHR^(&H49)=HEXCHRS("80000000000000007F3F031C3E3F3F1E8040000000000000") 

75 DEFCHR*<&H4A>=HEXCHR*<"071F3F7F7FFFFFFF071F3F7F7FFFFFFF071F3F7F7FFFFFFF") 

76 DEFCHR*(&H4B)=HEXCHR*<"FFFFFF7F7F3F1F07FFFFFF7F7F7F7F3FFFFFFF7F7F3F1F07") 

77 DEFCHR*<&H4C)=HEXCHRS<"1820377E6C3563DF1826377F6F3F7FE71820377E6C3563DF") 

78 DEFCHR*<&H4D>=HEXCHR*<"ECEEFF9A7F73391EFFBF379A7F7F7F3EECEEFFFA7F73391E") 

79 DEFCHR*<&H4E>=HEXCHR*<"28423CF89174231C28463FFF977E3F7728423CF89174231C"> 

80 DEFCHR*(&H4F)=HEXCHR*<"E4F0FC28C4432418DF9F4C28CC7F7E3CE4F0FC68C4432418"> 

81 DEFCHR$-<&HBA)=HEXCHR'$(" 000000000000000000000000C0F0F8F800000000C0F0F8F8") 

82 DEFCHR*<&HBB>=HEXCHR*<"000000000000000098E8E898F8F8FC3898E8E893F8F8FC38") 

83 DEFCHR*(&HBE)=HEXCHR*<"0000000000000000000000C0F0F8F8FS000000C0F0F8F8F8") 

84 DEFCHR*<&HBF>=HEXCHR*<"0000000000000000F8D8E8E818F0C080F8D8E8E818F0C080") 

85 DEFCHR*(&H54>=HEXCHR*<"00000C26120000000060CCFEFEFCFCFE00000C2612000000") 

86 DEFCHR*<&H55)=HEXCHR*("0101010000000000FEFEFEFCC01E7E3C0101010200000000") 

87 DEFCHR*<&H56>=HEXCHR*< *' 000C261 200000 1 0 1 60CCFEFEFCFCFEFE000C261 200000 1 0 1 ") 

88 DEFCHR*(&H57>=HEXCHR*<"0100000000000000FEFCC0387CFCFC780102000000000000“) 

89 DEFCHRf-<&H58)=HEXCHR$("00 0C261200 00 0 00 060CCFEFEFCFCFEFE0 0 0C261200000000"> 

90 DEFCHRS(&H59)=HEXCHR$("0002060000000000FEFCC000300000000002060600000000") 

91 DEFCHR^<&H5A)=HEXCHR^<"E0F8FCFEFEFFFFFFE0F8FCFEFEFFFFFFE0F8FCFEFEFFFFFF") 

92 DEFCHR*<&H5B>=HEXCHR*<"FFFFFFFEFEFCF8E0FFFFFFFEFEFEFEFCFFFFFFFEFEFCF8E0") 

93 DEFCHR*<&H5C)=HEXCHR*<"70DC0EF67BBDCE7E70FCCEF6FBFDFEE670DC0EF67BBDCE7E") 

94 DEFCHR*(&H5D>=HEXCHR*<"167FFFE316E6DC38FCFDF9E336FEFE3C167FFFE716E6DC38") 

95 DEFCHR*<&H5E>=HEXCHR*<"58860D5FB21D885C58E6CDFFF27DFCEE58860D5FB21D885C") 

96 DEFCHR*<&H5F>=HEXCHR*("06377FC3028C18B0FAFC65C332FE7EBC06377FC7028C18BC") 

97 DEFCHR*<^H60)=HEXCHR$<"20403048C83408982046334FCF3E3FE720403048C8340898"> 

98 DEFCHR*<&H61)=HEXCHR*<"60E0F80 0 800 420001 FIF0 4008C7E7E3C60E0F860800 4200 0") 

99 DEFCHR$(&H62)=HEXCHR$<"00003049483000C000C07ECF4FFF7F3F00003049483000C0"> 

100 DEFCHR*<&H63>=HEXCHR*<"3E3FFF0E000000000100000040F0FC783E3FFF3F0E000000") 

101 DEFCHR*<&H64>=HEXCHR*<"00304848300000FEC07ECF4FFF7F3F0100304848300000FE") 

102 DEFCHR*<&H65)=HEXCHR*<"FF3F0E00000 00000 000 000 00010 70707FF3F3F0E00 000000 ") 

103 DEFCHR*(4<H66>=HEXCHR*<"0000000003040000000000030F1F3F3F0000000003040000") 

104 DEFCHR$<&H67)=HEXCHRS("00030100000000007F7CFC7800F8FC780003030100000000") 

105 DEFCHR*<&H68)=HEXCHR*<"000000020C1000000000030F1F3F3F7F000000020C100000") 

106 DEFCHR*<8iH69>=HEXCHR*("03010000000000007CFC7E00030707030303010000000000") 

107 DEFCHR*(&:H6A> = HEXCHR*< " 00 00 30484830 0 0 1 80006334F4F3E3F6700003048483000 1 8" ) 

108 DEFCHR$(&H6B)=HEXCHR$<"60E0F800000000001F1F04000C7E7E3C60E0F86000000000") 

109 DEFCHR*<&H6C) = HEXCHR$<"0030484830000 00006334F4F3E3F7F7F00304848300000 0 0" ) 

110 DEFCHR*(&H6D>=HEXCHR$<"78F8E00000000000040000000E00000073F8E06000000000 ") 

111 DEFCHR*<&H6E>=HEXCHR*<"00304848300078F806334F4F3E3F070700304848300078F8") 

112 DEFCHR*<&H6F>=HEXCHR*<"E0000000000000001 Cl 80 00 01E3F3F1EE0600000 00000 000 " ) 

113 DEFCHR$(&H70)=HEXCHR$("10820C93520C019810E2CCF3F27CFDE610820C93520C0198") 

114 DEFCHR*(&H71>=HEXCHR*<"061F1F4000040021F9F0FD40307E7E39061F1F4600040021") 

115 DEFCHR*(&H72)=HEXCHR*<"00000000C0200000000000C0F0F8FCFC00000000C0200000") 
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116 DEFCHR*<&H73)=HEXCHR*<"00C0800000000000FE3E3F1E001F3F1E00C0C03000000000"> 

117 BEFCHR*<&H74)=HEXCHR*("00000040300800000000C0F0F3FCFCFE0000004030080000") 

118 DEFCHR*<&H75)=HEXCHR*<"C0800000000000003E3F7E00C0E0E0C0C0C0800000000000"> 

119 DEFCHR*<&H76)=HEXCHR*<"00000C92120C000300037EF3F2FFFEFC00000C92120C0003" ) 

120 DEFCHR*(&H77)=HEXCHR*("7CFCFF700000000080000000020F3F1E7CFCFFFC70000000") 

121 DEFCHR*<&H78)=HEXCHR^<"000C12120C00007F037EF3F2FFFEFC80000C12120C00007F") 

122 DEFCHR*<&H79)=HEXCHR*<"FFFC7000000000000000000080E0E0E0FFFCFC7000000000") 

123 DEFCHR*<&H7A)=HEXCHR*<"00000C12120C00180060CCF2F27CFCE600000C12120C001 8") 

124 DEFCHR*<&H7B)=HEXCHR*<"06071F0000000000F8F82000307E7E3C06071F0600000000" ) 

125 DEFCHR*<&H7C)=HEXCHR*< " 000C121 20C00 1 El F60CCF2F27CFCE0E0000C1 21 20C001 El F" ) 

126 DEFCHR*<&H7D)=HEXCHR*<"07000000000000003818000078FCFC780706000000000000"> 

127 DEFCHR*<&H7E)=HEXCHR*<"000C12120C00000060CCF2F27CFCFEFE000C12120C000000") 

1 28 DEFr.HR*(&H7F)=HEXCHR*(" 1 El F07000000000020000000700000001 El F070600000000 "> 

129 BEFCHR*<&H80)=HEXCHR*<"3048C8F0D8E0E078364BCFFEE71F1F043048C8F0D8E0E078") 

130 DEFCHR*(&H81)=HEXCHR*<"3048C8F0C00000003148C8F0C0000000314FCFFEFF3F3F1F") 

131 DEFCHR* (&H82)=HEXCHR* ("000000 000000030400000002030003040000 000203070F1C") 

132 DEFCHR*<&H83)=HEXCHR*("040300000000000004030000000000001 ClF0F0 707070 707") 

133 DEFCHR*(&H84)=HEXCHR*<"000000000101000000000000010100000000010307070703") 

134 DEFCHR*(&H85)=HEXCHR*("000000000000000000000000000000000101000000000000") 

1 35 DEFCHR*(&H86) S =HEXCHR*< " 00000000 0000000 1000000000000000 10000000000070F1F") 

136 DEFCHR*(&H87)=HEXCHR*<"010000000000000001000000000000001F1F1F1F1F1F1F1F") 

137 DEFCHR*(&H3S)=HEXCHR*<"0000000304040300010300030404030001031F3F7C7C7F7F") 

138 DEFCHR*C&H89)=HEXCHR*<"00000000000000000000000000000000FFFF7F1F06000000") 

139 DEFCHR*C&HA0)=HEXCHR*<"00000000000000000A152A458A55AA550000000000000000 " ) 

140 DEFCHR^&HAl >=HEXCHR*(" 000 000 0000000000AA1 1 881 48A41 20 1 50000000000000000 " > 

141 DEFCHR*<&HA2)=HEXCHR*<"0A152A458A55AA5500000000000000000000000000000000"> 

142 DEFCHR*<&HA3)=HEXCHR*<"AA1188148A4120150000000000000000000000000000000®"> 

143 DEFCHR*<&HAC)=HEXCHR*<"000000000000000008142A048A45AA5500 00 0 0 000 0 000 0 00 ") 

144 DEFCHR*<&HAE)=HEXCHR*("0000000000000000000000000854AA550000000000000000"> 

145 DEFCHR*<&H90)=HEXCHR*<"0C12130F1B07071E6CD2F37FE7F8F8200C12130F1B07071E") 

146 DEFCHR*<&H91)=HEXCHR*("0C12130F030000008C12130F030000003CF2F37FFFFCFCF8") 

147 BEFCHR*(&H92)=HEXCHR*<"000000000000008000000000000000800000000000E0F0F8") 

148 DEFCHR*(&H93)=HEXCHR*<"80000000000000008000000000000000F8F8F8F8F8F8F8F8") 

149 DEFCHR*(&H94)=HEXCHR*<"0 000 00C02020C000S0C0 00C02020C0 0 080C0F8FC3E3EFEFE" ) 

150 DEFCHR*<&H95)=HEXCHR*("00000000000000000000000000000000FFFFFEF860000000 ") 

151 DEFCHR* < &H96)=HEXCHR* ("000000000000C02000000040C000C02000000040C0E0F038") 

152 DEFCHR*<&H97)=HEXCHR*<"20C000000000000020C000000000000038F3F0E0E0E0E0E0") 

153 DEFCHR*<&H98)=HEXCHR*<"00000000308000000000000080800000000080C0E0E0E0C0") 

154 DEFCHR*<&H99)=HEXCHR*<"000000000000000000000000000000008080000000000000") 
1 55 DEFCHR*<&HB0) = HEXCHR*<:" 0000000000000000A854AA55AA55AA550050081 402046204" ) 

156 DEFCHR*(&HB1)=HEXCHR*<"0000000000000000AA55AA152A5483500000000000000000"> 

157 DEFCHR*<&HB2)=HEXCHR*<"A854AA55AA55AA5500000000000000000050081402040204") 

158 DEFCHR*<&HB3)=HEXCHR*<"AA55AA152A54835000000000000000000000000000000000") 

159 DEFCHR*<&HAD)=HEXCHR*<"0000000000000000A35428512245AA550010080002040000") 

160 DEFCHR*<&HAF)=HEXCHR*<"0000000000000000000000000050AA550000000000100200") 

161 DEFCHR*<&HAA)=HEXCHR*<"0000000000000000071 FI737373F1F1E0 71F1737363F1F1E") 

162 DEFCHR*<&H8B)=HEXCHR*<"FFFFFF7F7F3F1F07FFFFFF7F7F3F1F07FFFFFF7F7F3F1F07") 

163 DEFCHR*<&H8C)=HEXCHR*<"030F1F3E116377BF030F1F3E136377BF030F1F3E13677FBF"> 

164 DEFCHR*<&H8D)=HEXCHR*<"C5F37F7B3813170FC5F37F7B3813170FDDFF7F7F3F17170F") 

165 DEFCHR*<&H8E)=HEXCHR*("0304163166SC63AD03041633678C63AD03041633673F6FBD") 

166 DEFCHR*<&H3F)=HEXCHR*<"96632ED5704A160396632ED5704A16039E7F2FD7774FI707") 

167 DEFCHR*('&H42)=HEXCHR*<" 021 0004008800304021 000420B800304021 000420B870F1 C" ) 
163 DEFCHR*<&H43)=HEXCHR*<"240 38001084000 08240 380010 84000083C1F8F070F470 70F") 

169 DEFCHR*<&H40)=HEXCHR*<"000000000200000000000000020000000000000002010303") 

170 DEFCHR* <&H41 )=HEXCHR*< "000000000000000000000000000000000303010103030707") 

171 DEFCHR*(&H8A)=HEXCHR*("000000000060F3E7000000020360F3E7000000020367FFFF") 

172 DEFCHR*<&H3E)=HEXCHR*<"60030000000000006003000000000000781F0F0707070707") 

173 DEFCHR*<&HA4)=HEXCHR*<"000000000000000008142A048A44A0510000000000000000") 

174 DEFCHR*<&HA5)=HEXCHR*("00 000000000 00000A20108148A4000150000000000000000") 

175 DEFCHR*<&HA6)=HEXCHR*<"00000000000000000000000003142A040000000000000000") 

176 DEFCHR*<&HA7)=HEXCHR*<"00000000000000008A44A051A201AA550000000000000000") 

177 DEFCHR*<&HAB)=HEXCHR*<"0000000000000000E0F3E8ECECFCF878E0F3E8EC6CFCF878") 

178 DEFCHR*(&H9B)=HEXCHR*<"FFFFFFFEFEFCF8E0FFFFFFFEFEFCF8E0FFFFFFFEFEFCF3F8") 

179 DEFCHR*<&H9C)=HEXCHR*<"80687C5E8E7338E580687C5E8E7338E5S0637C5E8EF3F8FD"> 
130 DEFCHR*(&H9D)=HEXCHR*<"B663B31FCEEEDCB3B663B31FCEEEDCB8FEFBFBFFFEFEFCF8") 
181 DEFCHR*(&H9E)=HEXCHR*<"60101844301B4EA860101844301B4EAS6010184430FBFEF8") 
132 DEFCHR*<&H9F)=HEXCHR*<"3D4421B246CC5C308D4421B246CC5C30FDFCF9FAFEFCFCF8") 
1 S3 DEFCHR*<&H52)=HEXCHR*(" 100280001140 00 84100230001 140 008410 02800 01 1E0F0FC") 
134 DEFCHR*<&H53)=HEXCHR*<"900100100200342090010ai00^008420F3F9F3F3FAF8FCF8") 
1 85 DEFCHR*<&H50)=HEXCHR*< " 0000000000000-06000000000040C00600000000004ECF8FC" ) 
186 DEFCHR*<&H51)=HEXCHR*<"70B040000000000070B04000000000007CBEDEFCFCF8F8F8") 
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187 DEFCHR*<&H9A)=HEXCHR*<"000000000000008000000000000000800000000000E0F0F8"> 

188 DEFCHR$><&H3F>=HEXCHR$<"0000000000000000000000000000000078F8F8F8F8FSF8F8") 

189 DEFCHRf-<&HB4) =HEXCHR$-("0000000000000000A8542S5122058A450050081002040104" ) 

190 DEFCHR$<&HB5)=HEXCHR$< "0000000000000000A0400A0522440010 0 000000000000000 " ) 

191 DEFCHR*<&HB6)=HEXCHR*<"000000000000000000000000A85428510000000000500800") 

192 DEFCHR$<&HB7)=HEXCHR$<"000000000000000022058A45A0402A550204020000000000") 

193 DEFCHR<-<&HC0)=HEXCHR$<"000000000000000000000000030F1F1F00000000030F1F1F") 

194 DEFCHR^<icHCl)=HEXCHR*("0000 000000000000l91717191 FIF3F1Cl 91717191 FIF3F1C" ) 

195 DEFCHR*<&HC2)=HEXCHR*<"0000000000000000000000030FI FI FIF000000030FI FI FI F") 

196 DEFCHR*(&HC3)=HEXCHR$<"00000000000000001F1B1717180F03011F1B1717180F0301") 

197 DEFCHR*<&HC4)=HEXCHR*<"000000000000000000000000030FI FI 700000000030FI FI 7") 

198 DEFCHR$<&HC5)=HEXCHR*<"000000000000000017373F3F1FI FI FI El7363F3F1FI FI FIE") 

199 DEFCHR*<&HC6)=HEXCHR*<"0000000000000000000000030F1FI 717000000030FI FI 71 7") 

200 DEFCHR*<&HC7)=HEXCHR*("0000000000000000373F3F1F1F0F0100363F3F1F1F0F0100" ) 

201 DEFCHR*<&HC3)=HEXCHR*<"0000000000000000000000030F1F3737000000030F1F3737"> 
20 2 DEFCHR*(&HC9)=HEXCHR$<"0000000000000000371 FI FI FIF0F0F07361FI FI FIF0F0F07") 

203 OEFCHR$<&HCA)=HEXCHR$<"000000000000000000000000030F1F1F00000000030F1F1F") 

204 DEFCHR$(&HCB)=HEXCHR$("00000000000000001F3F3F3F1FI FI FI ElF3F3F3F1FI FI FIE") 

205 DEFCHR*<&HCC)=HEXCHR*<"0000000000000000000000030F1FI FIF000000030F1FI FI F" ) 

206 DEFCHR'^<&HCD)=HEXCHRS(" 00000000000000003F3F3F1F1F0F0100 3F3F3F1F1F0F0100" ) 

207 BEFCHR^(&HCE)=HEXCHR*<"0000000000000000000000030F1F3F3F000008030F1F3F3F") 

208 DEFCHRS<&HCF)=HEXCHR$<"00000000000000003F1F1F1F1F0F0F073F1F1F1F1F0F0F07") 

209 DEFCHR*<&HD0>=HEXCHR*<"000000000000000000000000E0F8ESEC00000000E0F8E8E8") 

210 DEFCHR*<&HD1)=HEXCHR$<"0000000000000000ECF8F8F3F8F8FC33ECF8F8F3F8F8FC38"> 

211 DEFCHR*<&HD2)=HEXCHR*<"0000000000000000000000E0F8E8ECEC000000E0F8E8E8EC") 

212 DEFCHR$<&HD3)=HEXCHR*<"0000000000000000F8F8F8F8F8F0C0E0F8F3F8F8F8F0C0E0") 

213 DEFCHR*<&HD4)=HEXCHR*<"000000000000000000000000C0F0F8E800000000C0F0F3E8") 

214 0EFCHR*<&HD5>=HEXCHR*<"0000000000000000E3ECFCFCF8F8F878E86CFCFCF8F8F878") 

215 DEFCHR*<&HD6)=HEXCHR*<"0000000000000000000000C0F0F3ECEC000000C0F0F8ECEC") 

216 DEFCHR$<&HD7>=HEXCHR$<"0000000000000000ECF8F8F3F8F0F0E06CF8F8F3F8F0F0E0") 

217 DEFCHR*<&HD8)=HEXCHR*<"0000000000000000000000C0F0F8E8E8000000C0F0F8ESE8") 

218 DEFCHR$(&HD9)=HEXCHR$<"0000000000000000ECFCFCF3F3F080006CFCFCF3F3F08000") 

219 DEFCHR$<&HDA)=HEXCHR*<"000000000000000000000000C0F0F8F800000000C0F0F8F8") 

220 DEFCHR$<&HDB)=HEXCHR$<"0000000000000000F8FCFCFCF8F3F873F3FCFCFCF3F8F878") 

221 DEFCHR^<&HDC)=HEXCHR^("0000000000000000000000C0F0F8FCFC000000C0F0F8FCFC") 

222 DEFCHR$(&HDD)=HEXCHR$("0000000000000000FCF8F3F8F8F0F0E0FCF8F8F8F8F0F0E0") 

223 DEFCHR$(&HDE)=HEXCHR$-<"0000000000000000000000C0F0F8F8F8000000C0F0F8F8F8"> 

224 DEFCHR$<&HDF)=HEXCHR$("0000000000000000FCFCFCF8F8F08000FCFCFCF8F8F08000") 

225 DEFCHRf-<&HE0)=HEXCHR$-<" 00000000000000000000000107050D0D000000010705050D" > 

226 DEFCHR*(&HE1)=HEXCHR*<"00000000000000000F0F0F070F0F07000F0F0F070F0F0700") 

227 DEFCHR$<&HE2)=HEXCHR$<"0000000000000000000000001F7F5FDF000000001F7F5F5F") 

228 DEFCHR$<&HE3)=HEXCHR$("0000000000000000DE7FFFFFFF3F3F1CDE7FFFFFFF3F3F1C") 

229 DEFCHRfc(&HE4)=HEXCHR$<"00000000000000000000000F3F7F7FFF0000000F3F7F7F7F") 

230 DEFCHR*<&HE5)=HEXCHR*< " 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0FFFFFFFF7F3F3C1 C7FFFFFFF7F3F3C1 C " ) 

231 BEFCHRf- <&HE6)=HEXCHR*( "0000 0 0000000000000000000000 30 70 70000 0 000000 30 707") 

232 DEFCHR$<&HE7)=HEXCHR$("000000000000000006050506070703000605050607070300") 

233 DEFCHR*<&HE8)=HEXCHR*<"000000000000000000000000071F7FEF00000000071F3F2F") 

234 DEFCHR*(&:HE9)=HEXCHRf<"0000000000000000EF6F7F3F3E3D1D1E6F6C7F3F3E3D1DIE") 

235 DEFCHR$X8tHEA)=HEXCHR$<"000000000000000000000000000001070000000000000107") 

236 DEFCHR^(&HEB)=HEXCHR*("00000000000000000F0B0B1B1F1F0E000F0B0B1B1F1F0E00") 

237 DEFCHR^<&HEC)=HEXCHR^("00000000000000000000000001070F1F0000000001070F1F") 

238 DEFCHR*<&HED)=HEXCHR*("00000000000000 001 FIF0F0F0F0F07001 FIF0F0F0F0F0700") 

239 DEFCHR*<&HEE)=HEXCHR*<"000000000000000000000000071F3F3F00000000071F3F3F") 

240 DEFCHR$<&HEF)=HEXCHR*("00000000000000003F7F7F7F3F3F3F1E3F7F7F7F3F3F3F1E") 

241 DEFCHR*<&HF0)=HEXCHR*<"0000000000000000000000F0FCFEFEFF000000F0FCFEFEFE") 

242 DEFCHR-JK&HF1 )=HEXCHR$< " 00 00000000000000FFFFFFFFFEFC3C38FEFFFFFFFEFC3C38" ) 

243 DEFCHR*<&HF2)=HEXCHR$<"00000000000000000000000000C0E0E00000000000C0E0E0") 

244 DEFCHR*<&HF3)=HEXCHR$<"000000000000000060A0A060E0E0C00060A0A060E0E0C000") 

245 DEFCHR*<&HF4)=HEXCHR*<"000000000000000000000080E0A0B0B000000080E0A0A0B0") 

246 DEFCHRS(&HF5)=HEXCHRS<"0000000000000000F0F0F0E0F0F0E000F0F0F0E0F0F0E000") 

247 DEFCHR*(&HF6)=HEXCHR*<"000000000000000000000000F8FEFAFB00000000F8FEFAFA") 
243 DEFCHR$<&HF7>=HEXCHR*<"00000000000000007BFEFFFFFFFCFC337BFEFFFFFFFCFC38") 

249 DEFCHR$<&HF8)=HEXCHR*< "00000000000000000000000080E0F0D00000000080E0F0D0") 

250 DEFCHR$(&HF9)=HEXCHR'$( " 0 0 00000000000000D0D0F8F8F8F0E000D0D0F3F3F8F0E000 " ) 

251 DEFCHR*<&HFA)=HEXCHR$<"0000000000000000000000000000E0F8000000000000E0F8") 

252 DEFCHR$<&HFB)=HEXCHR*<“0000000000000000FCF6F6F6FCFCFC78FCF6F636FCFCFC78") 

253 DEFCHR*<&HFC)=HEXCHR£<"000000000000000000000000E0F8FCFC00000000E0F8FCFC"> 

254 DEFCHR*<&HFD)=HEXCHR$<"0000000000000000FFFFFFFEFEFC7C78F8F3FEFEFEFC7C73") 

255 DEFCHR*<&HFE)=HEXCHR*<"000000000000000000000000E0F8F8FS00000000B0F8F8F8") 

256 DEFCHR$(&HFF)=HEXCHR$C"0000000000000000F3F0F0F0F0F0E000F8F0F0F0F0F0E000") 
2000 END 
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5 CLR 

10 DIM EX<9), EY < 9),EM<9),EMF<9),EPTAD<20),EPN<9),ETCT<9),ESLP<9) 

20 DIM UX< 9) , UY ( 9),UM<9),UMF<9),UPTAD<10) ,UPN<9),UTCT<9),USLP<9) 

30 DIM MX< 9) ,MY(9) ,MM< 9) ,MMF< 1 9),FLY< 9),MTM< 9) 

35 DIM SX<19) ,SY<19),SM<19),SMF<19),BFG<19) ,BCT(19) ,STPTAD<4) 

40 DIM FF'TAD<20) 

50 REM 

60 REM EX ... It~-? X 
70 REM UX ... lZ3-y X 
30 REM MX ... *>3 X 
90 REM SX ... X 
100 REM 
110 REM tA-j 
120 REM 

125 WIDTH 40.25:CONSOLE , ,0,1sCLS 0 

130 MAZEAD=&H6000:PATAD=MAZEAD+600:VRMWK=&H9000:GOSUB 20000:GOSUB 19500 

140 GOSUB 5170: REM A* 7-D tr»j F 

500 REM 

510 REM INIT 1 

520 REM 

530 SCORE=0:SIDE=0:FKAZU=5 
600 REM 

610 REM INIT 2 
620 REM 

630 SIDE=SIDE+1:NSFG=0 

635 FX= 1 :FY=4:FM=3:FMF=0:FPN=0:DYFG=0:KCNT=0:KFG=0:FTCT=0:FDCT=0:XL=0:TM=1500 

636 GOSUB 19000: REM YV79 9')7 

638 FOR I=L>RMWK TO URMWK+ 999 i POKE I ,&H20 :NEXT : CLS 0 

640 GOSUB 1000:GOSUB 1060:GOSUB5000:G0SUB14000 

700 REM 

710 REM MOUE 

720 REM 

730 GOSUB 3000:REM lZ3-y Yh'9 

740 GOSUB 8000: REM Y9 > YK9 

745 IF NSFG THEN 630 

750 GOSUB 4000:REM It'-? YS'9 

760 GOSUB 6040: REM 77'ut*- YK'9 

762 IF FKAZU=0 THEN GOSUB 19800:GOTO 500 

765 IF DYFG THEN 635 

770 GOSUB 8000: REM 

775 IF NSFG THEN 630 

780 GOSUB 10 000 : REM ? >3 > Yt'”? 

785 IF TM THEN XL=XL XOR 1:TM=TM-XL:GOSUB15530 ELSE IF FDCT=@ THEN FDCT=10 

786 K*=INKEY*<0):IF K*="G" OR K*="q" THEN FKAZU=FKAZU-1:G0T0635 
790 GOTO 700 

800 REM 
1000 CLS 0 

1810 Y=0:GOSUB 1040:X=0:GOSUB 1050:X=39:GOSUB1050:Y=3:GOSUB 1840 
1020 Y=24:GOSUB 1040 

1025 LOCATE 1 3,1: COLOR 7,2: GPRINT"&-' O *" : L0CATE29,2 : COLOR 7,4 : GPRINT" LO 

CATE28,1:COLOR 7,6:GPRINT";CHR*<&H22);:LOCATEl1,1:GPRINT"4":L0CATE26,1:GPR 
INT"4" :LOCATE 11 ,2:GPRINT"<":L0CATE26,2:GPRINT "A " :GOSUB15500 
1030 RETURN 

1040 LOCATE0,Y:FOR X=0 TO 39:GPRINT CHR*<&HA8);:POKE X+Y*40+URMWK,&HA8:NEXT:RETU 
RN 

1850 FOR Y= 1 TO 23 : LOCATEX , Y: GPRINT CHRf-C&HAS) : POKE X+Y*40+URMWK ,&HA8 :NEXT : RETUR 
N 

1060 REM 

1070 REM BLOCK WRITE 
1080 REM 

20 00 Y=4:MZAD=MAZEAD:CT=< SIDE-1) MOD 4 

2010 IF CT THEN MZAD=MZAD+PEEKCMZAD):CT=CT-1:GOTO 2018 
20 20 SPNT=0:MPNT=SPNT:EPNT=SPNT:UPNT=SPNT 
2030 FOR D=0 TO 9 
2048 X=1 

2850 FOR C=0 TO 2 
2060 MZAD=MZAD+1 
2070 B=PEEKCMZAD) 

2880 FOR A=7 TO 0 STEP -1 
2090 IF X>37 THEN 2120 
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•2100 IF B AND 2 A A THEN GPUT <X*2,Y*8)-PATAD:GOSUB 2300 

2110 X=X+2 

2120 NEXT 
2130 NEXT 

2140 A=B AND &HlF:IF A=0 THEN 2210 
2150 FOR C=1 TO A 

2160 MZAD=MZAD+1:B=PEEK<MZAD) AND &HC0:X=< PEEK(MZAD) AND &H3F) 

2170 IF B=&H40 THEN GOSUB 2260:MPNT=MPNT+1:GOTO2200 
2180 IF B=&H88 THEN'GOSUB 2270:EPNT=EPNT+1:GOTO2200 

2190 IF B=&HC0 THEN GOSUB 2280:UPNT=UPNT+1 ELSE GOSUB 2290:SPNT=SPNT+1 
2200 NEXT 
2210 Y=Y+2 

2220 NEXT 

2230 MZAD=MZAD+ 1 :X=PEEK<MZAD) :Y=PEEK<MZAD+ 1 ) -.GOSUB 2290:BFG<SPNT)=1 :SPNT=SPNT+1 
2240 MZAD=MZAD+2:BWX=PEEK(MZAD):BWY=PEEK(MZAD+1):GPUT <BWX*2,BWY*8)-PATAD+6 
2250 RETURN 

2260 MX<MPNT) =X :MY<MPNT) =Y + 1 :MM(MPNT)=3 : FLY<MF'NT) = 1 : RETURN 

2270 EX < EPNT) =X : EY< EPNT > =Y: EM< EPNT )=3 : EMF < EPNT )=0 : EPN( EPNT > =0 : RETURN 

2280 UX( UPNT) =X : UY( UPNT) =Y : UM ( UPNT) =0 :UMF(UPNT)=@ :UPN(UPNT)=0 : RETURN 

2290 SX<SPNT)=X:SY<SPNT)=Y:SM<SPNT)=0:SMF(SPNT)=0:BFG<SPNT)=0:BCT<SPNT)=0:RETURN 

2300 PKAD=URMWK+X+Y*40 

2310 POKE PKAD,&HA8:POKE PKAD+1,&HA3:POKE PKAD+40,&HA8:POKE PKAD+41,&HA8:RETURN 

2320 REM 

2330 REM lZ3-y 

2340 REM 

3000 FOR 1=0 TO UPNT-1 

3010 IF UX<I)=0 THEN 3129 

30 20 IF UMF< I ) THEN GOSUB 3260:GOTO 3120 

3025 IF UTCT(I) THEN GOSUB 3500:G0T03120 

3027 IF USLP(I) THEN GOSUB 3600:G0T03120 

3030 IF RND(10) THEN 3070 

3040 SA=UX(I)-FX 

3050 IF ABS( SA)>10 OR UY<I)< >FY THEN UM<I) = RND< 2)*2:GOTO30 70 
3060 IF SA>0 THEN UM(I)=0 ELSE UM<I)=2 
30 70 SCY=UY <I) 

3080 IF UM<I) THEN SCX=UX<I)+2:NX=UX<I)+1 ELSE SCX=UX(I>-1:NX=SCX 
3090 S=PEEK< SCY*40 + SCX+^RMWK) 

3100 IF SO&H20 AND SO&H21 AND SC&HB8 THEN 3120 
3110 GOSUB 3140 

3120 rem 77"jt®- ; t? 

3121 IF FDCT THEN 3129 

3122 SAX=UX(I>-FX:SAY=UY(I)-FY 

3123 IF (ABS< SAX)<2) AND (ABS<SAY)<2) THEN FDCT=10 

3129 NEXT 

3130 RETURN 
3140 REM 

3158 REM lZ3-y PUT SUB. 

3160 IF UMCI) THEN ZX=1 ELSE ZX=-1 

3170 GPUT< UX(I)*2,UY<I)*8)-PATAD+356:REM NULL 

3180 X=UX<I):Y=UY<I>:AD=PATAD+356:GOSUB 3230:REM 7-9 PUT 

3190 GPUT(UX<I> *2+ZX,UY(I)*8)-UPTAD<UM<I)+UPN<I)) 

3200 X=NX:Y=UY(I):AD=UPTAD<UM<I)+UPN<I>):GOSUB3230:REM 7-9 PUT 
3210 UX(I)=NX:UPN<I)=UPN<I) XOR 1:UMF<I) = 1 
3220 RETURN 
3230 REM 

3240 REM 7-9 PUT 

3250 AD=AD+2 : PKAD=L i RMWK+X+Y*40 : POKE PKAD , PEEK( AD) : POKE PKAD+1 , PEEKC AD+1 ) : POKE PK 
AD+40,PEEK<AD+2):POKE PKAD+41,PEEK(AD+3):RETURN 

3255 AD=AD+2:PKAD=URMWK+X+Y*40:POKE PKAD,PEEK(AD):POKE PKAD+1,PEEKCAD+1):RETURN 
3260 REM 

3270 REM lZ3-y PUT SUB.2 

3280 IF UM(I) THEN ZX=-1 ELSE ZX=1 

3290 GPUT<UX<I)*2+ZX,UY<I)*8)-PATAD+ 356:REM NULL 

3300 GPUT < UX <I)*2,UY<I)*8)-UPTADCUM<I)+UPN<I)) 

3310 UPN(I)=UPN<I) XOR 1:UMF<I)=0 
3320 RETURN 
3470 REM 

3480 REM 113-y 77“ 7. 

3500 IF UTCT<I) = 3 THEN SOUND 700,200,3:X=UX<I):Y=UY<I):GPUT<X*2,Y*8)-PATAD+356: 
GPUT<X*2,Y*8+8)-UPTAD<10):AD=PATAD+366:GOSUB 3250:UTCT<I)=UTCT<I)-1:RETURN 
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3510 IF UTCT(I) = 1 THEN X=UX<I):Y=UYU > :GPUT(X*2, Y*8+8)-PATAD+ 362:Y=Y +1:AD=PATAD 
+362:GOSUB 3255:UX<I)=0:SC0RE=SC0RE+5:GOSUB 15500 
3520 UTCT <I)=UTCT U >-l:RETURN 
3580 REM 

3590 REM 113-7 ?Jl> 

3600 IF USLP<I)>146 THEN GPUT<UX<I)*2,UY<I)*8)-UPTADCUSLP<I)-141>:USLP(I)=USLP<I 
>-l:RETURN 

3610 IF USLP<I)>124 THEN GPUT < UX<I)*2,UY<I> *8)-UPTAD< UM<I> + 1>:USLP<I)=USLP<I)-1: 
RETURN 

3620 IF USLP( I ) >20 THEN IF lfSLP( I ) AND 3 THEN A=A ELSE UPN< I )=UPN( I > XOR 1 ELSE 
3630 

3625 GPUT < UX<I ) *2 , UYU ) *8)-UPTAD< UPN(I)+4):USLP<I>=USLP<I >-l :RETURN 
3630 GPUT< UX< I > *2 , UYU > *8) -UPTAD< UM< I ) + 1 ) :USLP< I )=USLP(-I >-l : RETURN 
3970 REM 

3980 REM It” -7 YK”9 Jb-*7 
3990 REM 

4000 FOR 1=0 TO EPNT-1 

4010 IF EX<I)=0 THEN 4175 

4020 IF EMF(I) THEN G0SUB4190:GOTO 4170 

4025 IF ETCTCI) THEN GOSUB 4600:GOTO 4170 

4027 IF ESLP(I) THEN GOSUB 4800:GOTO 4170 

4030 IF RND<10> THEN 4360 

4040 SA=EX<I>-FX:SA2=EY<I)-FY 

4050 IF ABS(SA)>5 OR ABS(SA2)>5 THEN 4340 

4060 IF SA=0 THEN 4280 ELSE IF SA2=0 THEN 4310 

4070 IF RND(2) THEN IF SA<0 THEN EM(I)=2:G0T0 4090 ELSE EMU >=0: GOTO 4090 
4080 IF SA2<0 THEN EMU >=3 ELSE EM<I) = 1 

40 90 NX=EX(I ) :NY=EY<I ) :HOU=EM(I > : GOSUB 4460: REM 776 *9:) 9 77 V Jl; 

4100 IF (AO&H20 AND AO&H21 AND AC&HB8) OR (BO&H20 AND BO&H21 AND B<&HB8) TH 
EN 4170 

4110 REM It”-7 PUT SUB. 

4120 GPUT < EX(I> *2 ,EY <I)*8)-PATAD+356 

4130 X=EX<I):Y=EY(I>:AD=PATAD+356:GOSUB 3230:REM 9-7 PUT 
4140 GPUT< EX<I)*2+ZX,EY(I)*8+ZY)-EPTAD<EM<I)*2+EPN<I)) 

4150 X=NX:Y=NY:AD=EPTAD(EM<I)*2+EPN(I> >:GOSUB3230:REM 9-7 PUT 
4160 EX(I)=NX:EY<I)=NY:EPN<I>=EPN<I) XOR 1:EMF(I)=1 

4170 REM 77-jt*- ' 99-y7?J ? 

4171 IF FDCT THEN 4175 

4172 SAX=EX<I)-FX:SAY=EY<I>-FY 

4173 IF <ABS< SAX)<2) AND <ABS(SAY><2) THEN FDCT=10 
4175 NEXT 

4180 RETURN 

4190 REM It ”-7 PUT SUB.2 
4200 ZX=0:ZY=ZX 

4210 IF EM<I)=1 THEN ZY=4:GOTO 4240 

4220 IF EM<I>=2 THEN ZX=-l:GOTO 4240 

4230 IF EMU )=3 THEN ZY=-4 ELSE ZX=1 

4240 GPUT < EX<I)*2+ZX,EY<I)*8+ZY>-PATAD+356 

4250 GPUT < EX (I) *2 , EY (I ) *8) -EPTAD < EMU ) *2+ EPN U ) ) 

4260 EPN<I)=EPN<I) XOR 1:EMF<I)=0 
4270 RETURN 
4280 REM Y My 

4290 IF SA2>0 THEN EMU > = 1 ELSE EM( I )=3 
4300 GOTO 4090 
4310 REM X 

4320 IF SA>0 THEN EMU > = 0 ELSE EMU >=2 
4330 GOTO 4090 
4340 REM 7779 t»j*7 

4350 EM<I>=<EM(I)+l+RND<2)*2) AND 3:G0T0 4090 
4360 REM 

4370 REM *939 XV' 

4390 NX=EX<I):NY=EY<I):HOU=EM<I):GOSUB 4460:MKBUF=EMU) 

4400 IF (A=&H20 OR A=&H21 OR A>&HB7) AND <B=&H20 OR B=&H21 OR B>&HB7> THEN 4110 
4410 EMU )=RND< 2) *2+ (<1-<EM<I) AND 1 ))) :NX=EX(I ) :NY=EYU ): HOU=EM<I ): GOSUB 4460 
4420 IF <A=&H20 OR A=&H21 OR A>&HB7) AND (B=ficH20 OR B=&H21 OR B>&HB7> THEN 4110 
4430 EM<I)=EM(I)+2 AND 3:NX=EX<I):NY=EY<I):HOU=EMU>:GOSUB 4460 

4440 IF (A=&H20 OR A=&H21 OR A>&HB7) AND <B=&H20 OR B=&H21 OR B>&HB7) THEN 4110 
4450 EMU )=MKBUF+2 AND 3 : GOTO 4170 
4460 REM 

4470 REM A, B <= URMLIK 
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4490 SCX=NX:SCY=NY:ZX=0:ZY=ZX 

4500 IF H0U=1 THEN NY=NY-1:SCY=NY:SCX2=NX+1:SCY2=SCY:ZY=-4:GOTO 4540 
4510 IF H0U=2 THEN NX=NX+1:SCX=NX+1:SCX2=SCX:SCY2=NY+1:ZX=1:GOTO 4540 
4520 IF H0U=3 THEN NY=NY+1:SCY=NY+1: SCX2=NX+1:SCY2=SCY:ZY=4:GOTO 4540 
4530 NX=NX-1:SCX=NX:SCX2=SCX:SCY2=NY+1:ZX=-1 

4540 A=PEEK<L , RMWK+SCX+SCY*40 ) : B=PEEK(L'RMWK+SCX2+SCY2*40 > : RETURN 

4599 REM It'-7 ") 7“ l/il 

4600 IF ETCT<I) = 3 THEN SOUND 700,200,3:X=EX<I>:Y=EY<I):GPUT<X*2,Y*8>-PATAD+356: 
GPUT<X*2,Y*8+8>-EPTAD< 20) :AD=PATAD+372:GOSUB 3250:ETCT<I>=ETCT<I)-1:RETURN 

4610 IF ETCT< I ) = 1 THEN X=EX<I):Y=EY<I):GPUT(X*2,Y*8+8>-PATAD+362:Y=Y+1 :AD=PATAD 

+362:GOSUB 3255:EX<I>=0:SCORE=SCORE+10:GOSUB15500 

4620 ETCT <I>=ETCT <I>-1:RETURN 

4780 REM 

4790 REM It" -7 

4800 IF ESLP<I> >146 THEN GPUT<EX<I)*2,EY<I>*8)-EPTAD<ESLP<I>-137):ESLP(I>=ESLP<I 
)-l:RETURN 

4810 IF ESLP<I)>124 THEN GPUT(EX<I)*2,EYU)*8)-EPTAD<9):ESLP<I>=ESLP(I)-1:RETURN 
4820 IF ESLP<I> >20 THEN IF ESLP<I) AND 3 THEN A=A ELSE EPN(I)=EPN(I) XOR 1 ELSE 
4840 

4830 GPUT (. EX( I ) *2, EY( I > *8) -EPTAD< EPN( I > + 1 4 > :ESLP( I )=ESLP< I >-l : RETURN 
4840 GPUT(EX<I> *2,EY(I> *8)-EPTAD< 9):ESLPCI)=ESLP<I>-1:RETURN 
4970 REM 

4980 REM A® 9—1/ ta'?^' 

4990 REM 

5000 FOR D=0 TO SPNT-1 

5010 IF BFG< D) THEN AD=PATAD+40:X=SX(D):Y=SY(D):GPUT(X*2,Y*8>-AD:GOSUB 3250:GOT 
0 5030 

50 20 AD=PATAD+10:X=SX< D):Y=SY< D):GPUT<X*2,Y*8)-AD:GOSUB 3250 
5030 NEXT 

5040 FOR D=0 TO MPNT-1 

50 50 IF MPNT THEN LOCATE MX<D>,MY<D):GPRINTCHR$<&H21):G0SUB5140 
5060 NEXT 

5070 FOR D=0 TO EPNT-1 

5080 IF EPNT THEN GPUT< EX< D)*2,EY(D)*8)-PATAD + 88:GOSUB 5150 
5090 NEXT 

5100 FOR D=0 TO UPNT-1 

5110 IF UPNT THEN GPUTCUX<D) *2 ,UY<D)*8)-UPTADC0):GOSUB 5160 
5120 NEXT 
5130 RETURN 

5140 PKAD=MX (D) +MY( D) *40 +L , RMWK : POKE PKAD .&H21 : RETURN 

5150 PKAD=EX ( D) + EY< D> *40 +L , RMWK : POKE PKAD ,&H6A : POKE PKAD+1 ,&H7A : POKE PKAD+40 .&H6B 
:POKE PKAD+41,&H7B:RETURN 

5160 PKAD=UX< D> +UY< D) *40+L , RMWK : POKE PKAD ,&H82 : POKE PKAD+1 ,&H92 : POKE PKAD + 40 ,&H83 
:POKE PKAD+41,&H93:RETURN 
5170 REM 

5180 REM A®7-> t-uh 

5190 REM 

6000 FOR 1=0 TO 10:UPTAD(I>=PATAD+170+(I*6):NEXT 
6010 FOR 1=0 TO 20:EPTAD<I)=PATAD+46+(1*6):NEXT 

6020 FOR 1=0 TO 19:FPTAD<I)=PATAD+234+(1*6):NEXT:FPTAD(20)=PATAD+352 
6025 FOR 1=0 TO 3:STPTADCI+1>=PATAD+16+(I*6):NEXT:STPTAD<0>=PATAD+362 
6030 RETURN 
6040 REM 

6050 REM t® — > 

6060 REM 
7000 REM 

7010 IF FMF THEN 7180 
7015 IF KFG THEN 7600 

7017 IF FTCT THEN 7900 

7018 IF FDCT THEN 7950 

7020 STK=STICK(0):STR=STRIG(0) 

7040 IF STK=8 THEN H0U=1:60T0 7080 
7050 IF STK=6 THEN H0U=2:G0T0 7080 
7060 IF STK=2 THEN H0U=3:G0T0 7080 
7070 IF STK=4 THEN HOU=0:GOTO 7080 

7075 IF STR=-1 THEN KFG=1:FPN=0:GOSUB 7610:GOSUB 7800:RETURN 

7076 IF FM AND 1 THEN GPUT(FX*2,FY*8)-FPTAD(FM/2+16) ELSE GPUT < FX*2,FY*8>-FPTAD 
(FM*2+1) 

7077 RETURN 

7080 NX=FX:NY=FY:GOSUB 4460:FM=HOU 
7090 IF A<&HA0 AND B<&HA0 THEN 7120 
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7100 GOSUB 7270 

7105 IF FMF=0 THEN NX=FX:NY=FY:ZX=0:ZY=0:AFG=1:GOSUB 7120 
7110 RETURN 

7120 GPUT< FX*2,FY*8)-PATAD+356 

7130 GPUT< FX*2+ZX,FY* 8 +ZY>-FPTAD(FM*2+FPN> 

7140 x=FX:Y=FY:AD=PATAD+356:GOSUB 3230 
7150 X=NX:Y=NY:AD=FPTAD(FM*2+FPN):GOSUB 3230 
7160 FX=NX:FY=NY:FPN=FPN XOR 1:FMF=1 
7170 RETURN 

7180 HOU=FM:GOSUB 8130 
7210 IF AFG THEN ZX=0:ZY=0 
7220 GPUT < FX*2+ZX,FY* 8 + ZY)-PATAD+356 
7230 GPUT < FX*2,FY* 8 >-FPTAD< FM*2+FPN) 

7240 FPN=FPN XOR 1:FMF=0:AFG=0:RETURN 
7250 REM 
7260 REM Y9 > 

7270 NXB=NX:NYB=NY:ZXB=ZX:ZYB=ZY 

7280 FOR 1=0 TO SPNT-1 

7290 SAX=SX(I)-FX:SAY=SY(I)-FY 

7300 A=FM+1:ON A GOSUB 7340.7360,7380,7400 

7310 NEXT:RETURN 

7320 REM 

7330 REM Y9 ; fl“YN9 ?“ta9 V-* 

7340 IF <SAX=-2) AND <.ABS( SAY) <2) THEN GOSUB 7440 
7350 RETURN 

7360 IF <ABS(SAX)<2) AND <SAY=-2) THEN GOSUB 7440 
7370 RETURN 

7380 IF (SAX=2) AND <ABS<SAY)<2> THEN GOSUB 7440 
7390 RETURN 

7400 IF (ABS(SAX)<2) AND <SAY=2) THEN GOSUB 7440 
7410 RETURN 
7420 REM 

7430 REM STONE 1 BREAK 

7440 C=A:D=B:NX=SX<I>:NY=SY<I):HOU=FM:GOSUB 4460 

7450 IF <A=&H20 OR A=&H21) AND (B=&H20 OR B=&H21) THEN IF SY<I)=FY THEN 7490 ELS 
E RETURN 

7455 IF C=&HA2 OR C=&HA3 OR C=&HB2 OR C=&HB3 OR C=&HA 8 OR C=&HA9 OR D=&HA2 OR D= 
&HA3 OR D=&HB2 OR D=&HB3 OR D=S<HA 8 OR D=&HA9 THEN RETURN 
7460 IF BFG(I) THEN RETURN 

7470 IF BCT(I) THEN RETURN ELSE BCT<I)=5:RETURN 
7480 REM Y9 90“ 1)7. 

7490 IF HOU AND 1 THEN RETURN 

7495 GPUT< SX<I)*2,SY<I)*8)-PATAD+356 

7500 X=SX<I):Y=SY<I):AD=PATAD+356:GOSUB 3230 

7510 IF BFG(I) THEN AD=PATAD+40:GPUT < SX<I)*2+ZX,SY <I> * 8 +ZY)-AD:X=NX:Y=NY:GOSUB 3 
230:GOTO 7530 

7520 AD=PATAD+10:GPUT(SX(I)*2+ZX,SY(I)« 8 +ZY>-AD:X=NX:Y=NY:GOSUB 3230 

7530 SX<I)=NX:SY(I)=NY:SM(I)=HOU:SMF(I)=1 

7540 NX=NXB:NY=NYB:ZX=ZXB:ZY=ZYB:GOSUB 7120:RETURN 

7550 REM 

7560 REM tn 

7600 KFG=0 

7610 GPUT<FX*2,FY*8)-FPTAD(8+FM*2+FPN>:FPN=FPN XOR 1:RETURN 
7770 REM 

7780 REM X >2 trt39 t«j h 

7800 IF KCNT=0 THEN RETURN 

7801 IF FM=1 THEN SCX=FX+1:SCY=FY-1:GOTO7804 

7802 IF FM=2 THEN SCX=FX+2:SCY=FY:GOTO7804 

7803 IF FM=3 THEN SCX=FX:SCY=FY+2 ELSE SCX=FX-1:SCY=FY 

7804 A=PEEKOv>RMWK+SCX + SCY*40> : IF A>&H9F AND A<&HB 8 THEN RETURN 

7805 J=0 

7806 IF J>MPNT-1 THEN RETURN 

7807 IF MX(J) THEN J=J+1:G0T0 7806 

7810 KCNT=KCNT-1:GOSUB13000:S0UND 500.100.1 :MM(J)=FM:MX(J)=SCX:MY(J)=SCY:FLY< J) 
=1:MTM<J)=10:RETURN 
7880 REM 

7890 REM - 97“ 7 

7900 IF FTCT=3 THEN SOUND 1000,900,3:X=FX:Y=FY:GPUT(X*2,Y*8)-PATAD+356:GPUT(X»2 
,Y* 8 + 8 >-PATAD+ 384:AD=PATAD+383:GOSUB 3250:FTCT=FTCT-1 :RETURN 

7910 IF FTCT =1 THEN FKAZU=FKAZU-1 :X=FX:Y=FY+1 :AD=PATAD+362:GOSUB 3255:DYFG=1 :IF 
FKAZU THEN GPUT<X*2,<Y-l)*8)-PATAD+362 
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7920 FTCT=FTCT-1:RETURN 

7948 REM 

7949 REM 77«it*- 

7950 IF FDCT=10 THEN X=FX:Y=FY:GPUT<X*2,Y*8>-PATAD+356:GPUT<X*2,Y*8+8>-FPTAD<19 
) : AD=PATAD+394:GOSUB 3250:FDCT=FDCT-1:RETURN 

7951 IF FDCT=1 THEN FKAZU=FKA2U-1:X=FX:Y=FY+1:AD=PATAD+362:GOSUB 3255:DYFG=1:FD 
CT=0:IF FKA2U THEN GPUT(X*2.(Y-l)*8)-PATAD+362:RETURN ELSE RETURN 

7952 GPUT< FX*2,FY*8+8>-FPTAD< < FDCT AND 1) + 19):FDCT=FDCT-1 :RETURN 
7970 REM 

7980 REM X7 ) XS'7 Jl .-*-j 
7990 REM 

8000 FOR 1=0 TO SPNT-1 

8002 IF SX(I>=0 THEN 8025 

8005 IF BCT< I ) THEN GOSUB 8500 .-GOTO 80 20 

8040 IF SMF(I) THEN GOSUB 3060:GOTO 8020 

8011 NX=SX<I):NY=SY<I):H0U=3:GOSUB 4490 

8012 IF A=&HA8 OR A=&HA9 OR B=&HA8 OR B=&HA9 OR <A>&H9F AND AC&HB8) OR <B>&H9F 
AND B<&HB8> THEN.8020 

8013 IF <A=&H20 OR A=&H21> AND <B=&H20 OR B=&H21) THEN GOSUB 9200:GOTO 8025 

8014 GOSUB 9000 :GOTO8025:REM X9 ) z/9l fZD J ? 

8020 IF < BFG<I) = 1) AND (SX<I)=BWX> AND < BWY-SY <I) = 2) THEN NSFG=l:GOSUB 15000 
8025 NEXT 
8030 RETURN 
8040 REM 

8050 REM X? 719 1 71" *7 

8060 HOU=SM(I):GOSUB 8130:REM 2X SET 

8070 GPUT(SX<I> *2+ZX,SY<I)*8+2Y)-PATAD+356 

8080 IF BFG<I) THEN GPUT(SX<I> *2,SY<I)*8)-PATAD+40:GOTO 8100:REM BLUE STONE PUT 
80 90 GPUT(SX(I> *2,SY<I> *8)-PATAD+10:REM RED STONE PUT 
8100 SMF(I)=0:RETURN 
8110 REM 

8120 REM ZX.ZY SET 
8130 2X=0:2Y=2X 

8140 IF HOU=l THEN 2Y=4:GOTO 8170 
8150 IF H0U=2 THEN 2X=-l:GOTO 8170 
8160 IF H0U=3 THEN 2Y=-4 ELSE 2X=1 
8170 RETURN 
8480 REM 

8490 REM X7 97' UjD 

8500 IF BCT<I)=5 THEN BCT<I)=BCT<I>-1 :GPUJ(SX(I> *2,SY(I)*8)-STPTAD(BCT<I)):RETU 
RN 

8510 IF BCT (I )=4 THEN BCT(I)=BCT(I)-1:GPUT<SX(I)*2,SY<I)*8)-STPTAD(BCT(I)):RETU 
RN 

8520 IF BCT<I)=3 THEN BCT(I)=BCT<I)-1:GPUT<SX(I)*2,SY(I)*8)-STPTAD(BCT(I)):X=SX 
<I>:Y=SY<I):AD=STPTAD(BCT(I)):GOSUB 3255:RETURN 

8530 IF BCT<I> = 2 THEN BCT<I> = BCT<I>-1 :GPUT<SX(I)*2.SY<I)*8+8)-STPTADCBCT<I)>:RE 
TURN 

8540 IF BCT(I)=1 THEN BCT<I>=BCT<I>-1:GPUT<SX(I) *2 ,SY<I)*8+8)-PATAD+362:X=SX<I) 
:Y=SY(I>+l:AD=PATAD+362:GOSUB 3255:SX<I>=0:RETURN 
8980 REM 

8990 REM z/?Z til) "> 7' 7 

9000 FOR J=0 TO EPNT-1 

9010 SAX=EX(J > —SX <I):SAY=EY < J)-SY <I) 

9020 IF <ABS< SAX)<2) AND <SAY=2) AND (ETCT(J)=0) THEN ETCT<J>=3 
9030 NEXT 

9040 FOR J=0 TO UPNT-1 

9050 SAX=UX<J)-SX<I):SAY=UY< J)-SY<I) 

9860 IF <ABS< SAX)<2> AND <SAY=2) AND <UTCT<J)=0) THEN UTCT<J> = 3 
9070 NEXT 

90 80 SAX=FX-SX <I):SAY=FY-SY(I> 

90 90 IF <ABS< SAX)<2) AND <SAY=2> AND (FTCT=0) THEN FTCT=3 

9100 RETURN 

9190 REM 

9200 REM X7 TK7 

9210 GPUT< SX(I)*2,SY(I)*8)-PATAD+356 

9220 X=SX<I):Y=SY(I):AD=PATAD+ 356:GOSUB 3230 

9230 IF BFG<I) THEN AD=PATAD+40:GPUT(SX<I)*2+2X,SY<I)*8+ZY)-AD:X=NX:Y=NY:GOSUB 3 
230:GOTO 9250 

9240 AD=PATAD+10:GPUT(SX<I)*2+2X,SY<I)*8+ZY)-AD:X=NX:Y=NY:GOSUB 3230 
9250 SX(I)=NX:SY(I)=NY:SM<I)=HOU:SMF(I)=1:RETURN 
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9970 REM 

9980 REM 7 J \,-rj 

10000 REM 

10010 FOR 1=0 TO MPNT-1 
10020 IF MX<I)=0 THEN 12000 
10030 SCX=MXCI):SCY=MY<I) 

10040 A=PEEK<L>RMWK+SCX+SCY*40> 

10050 IF A>&H9F AND A<&HB8 THEN MX<I)=0:GOTO 12000 
10060 REM *73 7*1 7?»i7D ? 

10065 IF FLY<I)=0 THEN 10150 
10070 FOR J=0 TO UPNT-1 
10080 IF UX<J>=0 THEN 10100 

10090 SAX=MX<I>-UX<J>:SAY=MY<I>-UY<J):IF <SAX=0 OR SAX=1) AND (SAY=0 OR SAY=1) 
THEN USLP< J) = l50:MX<I )=0 
10100 NEXT 

10110 FOR J=0 TO EPNT-1 
10120 IF EX< J>=0 THEN 10140 

10130 SAX=MX<I>-EX<J):SAY=MY<I>-EY<J>:IF (SAX=0 OR SAX=1) AND <SAY=0 OR SAY=1) 
THEN ESLP<J)=150:MX<I)=0 
10140 NEXT 

10150 SAX=MX<I>-FX:SAY=MY<I)-FY:IF <SAX=0 OR SAX=1> AND <SAY=0 OR SAY=1) THEN K 
CNT=KCNT +1:GOSUB13000:MX<I)=0 
10160 IF MX(I)=0 THEN 12000 

10170 IF FLY<I) = 0 THEN SCX=MX(I):SCY=MY<I):GOTO 11550 
10180 IF MTM(I) THEN MTM(I)=MTM<I)-1 ELSE MM<I)=3 
11000 IF MM<I)=1 THEN SCY=MY<I>-1:GOTO 11500 
11010 IF MMCI)=2 THEN SCX=MX<I>+1:GOTO 11500 
1 1028 IF MM< I )=3 THEN SCY=MY<I>+1 ELSE SCX=MX(I)-1 
11500 A=PEEK<VRML)K+SCX+SCY*40> 

11510 IF A>&H9F AND A<&HB8 THEN IF MM<I>=3 THEN FLY<I>=0:GOTO 12000 ELSE MM<I>= 
3:GOTO 12000 

1 1520 IF AO&H20 THEN 11600 

1 1530 GPUT (MX< I) *2 ,MY<I> *8) -PATAD+381 : REM * >1 >77. 

11540 POKE VRMWK+MXCI)+MY<I>*40,&H20:MX<I)=SCX:MY<I>=SCY 
11550 GPUT<SCX*2,SCY*8>-PATAD+378:REM *73 7)7 
1 1560 POKE VRMLIK+SCX+SCY*40 ,&H21 
11570 GOTO 12000 

1 1600 GPUT<MX( I ) *2 ,MY<I)*8) -PATAD+381 : REM *73 77. 

11610 POKE VRMWK+MX(I)+MY(I)*40,&H20:MX<I)=SCX:MY<I)=SCY 
12000 NEXT 
12010 RETURN 
13000 REM 

13010 REM rt* *73 7)7 
13020 REM 

13030 GPUT< 26,16)-PATAD+400 
13040 IF KCNT=0 THEN RETURN 

13050 FOR Z=0 TO KCNT-1:GPUT< 26+Z*2,16)-PATAD+378:NEXT 
13060 RETURN 
13070 REM 
14000 REM 

14010 REM 73') 77»jt s - 
14020 REM 

14030 FOR Z=0 TO 4:GPUT(2+Z*4,8)-PATAD+356:NEXT 
14040 IF FKAZU<2 THEN RETURN 

14050 FOR Z=0 TO FKAZU-2:GPUT< 2+Z*4,8)-PATAD+336:NEXT 
14060 RETURN 
14070 REM 
15000 REM 

15010 REM **-*7 nvy 
15020 REM 

15030 IF TM>10 THEN SOUND 300,10,3:SCORE=SCORE+1:TM=TM-10:GOSUB15500:GOTOl5030 
15040 TM=0 :GOSUB1 5500 :l*JAIT 200 

15050 IF KCNT THEN SOUND 900,30,3: SC0RE=SC0RE+3 : KCNT=KCNT-1 :LIAI T 1 00 : GOSUB1 3000 : 
GOSUB15500:GOTOl5050 

15060 60SUB15500:GOSUBl3000:WAIT 400 
15070 RETURN 
15500 REM 

15510 REM 746. & 737 ta7z>' 

15520 L0CATE19,1:SC*=RIGHT*<" 00000"+STR*<SCORE*l 0>,6):COLOR 7,5:GPRINT SC* 

15530 L0CATE33,1:TM*=RIGHT*(“00000"+STR*<TM>,5>:COLOR 7,6:GPRINT TM* 

16000 RETURN 
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19000 

19010 

19020 

19030 

:NEXT 

19040 

:NEXT 

19050 

19060 

19070 

19080 

19500 

19510 

19520 

19530 

19540 

19550 

19560 

19570 

19580 

19590 

19600 

19610 

19800 

19810 

19820 

19840 

19850 

20000 

20010 

20020 

20025 

20026 
20030 
28040 
20050 
20060 
20070 
20080 
20090 

20095 

20096 
20100 
20110 
20120 
20130 
20140 
20150 
20160 

20165 

20166 
20170 
20180 
20190 
20200 
20210 
20220 
20230 

20235 

20236 
20240 
20 250 
20260 
20270 
20280 
20 290 
20300 
30000 
30010 
30020 
30030 


REM 

REM AYL'? ?')? 

REM 

FOR 1=0 TO 9:EX(I)=0:EY(I>=0:EM(I)=0:EMF(I)=0:EPN(I>=0:ETCT<I)=0:ESLP(I)=0 

FOR 1=0 TO 9:UX<I)=0:UYCI) = 0:UM<I)=0:UMF<I)=0:UPN<I)=0:UTCT<I)=0:USLP(I> = 0 

FOR 1=0 TO 9:MX<I)=0:MY<I)=0:MM<I)=3:MMF<I)=0:FLY<I)=0:MTM(I)=0:NEXT 

FOR 1=0 TO 9:SX<I)=0:SY<I)=0:SM<I)=3:SMF<I)=0:BFG(I)=0:BCT<I)=0:NEXT 

RETURN 

REM 

REM 

REM 4 CHR.ERASE SUB. 

REM 

FOR 1=0 TO 81:READ A$:A=YAL<"&H"+A$):POKE &H9400+I,A:NEXT:RETURN 
REM 

DATA 23,23,29,09,06,00,4F,CB,7F,28,02,06,FF,26,C0,EB 
DATA 29,29,29,09,29,29,29,29,44.4D.29,29,09,19,01,00 
DATA 00,1 1 ,50,00,22,3E,94,D3,5C,CD.39,94,D3,5D,CD,39 
DATA 94,D3,5E,CD,39,94,D3,5F,C9,ED,73,4F,94,21,00,00 
DATA 3E,10,32,4A,94,F9,C5,C5,19,3E,00,3D,20,F4,31,00 
DATA 00,C9 
REM 
REM 

REM GAME OYER 
REM 

IF STRIG(0) THEN RETURN ELSE 19840 

REM 

REM 

REM 

REM 

REM ** SIDE 1 ** 

REM 

MEM MAZEAD,43 

MEM ft,0,0,0,0,0,0,0,0,1 , & H 1 1 

MEM #,&H44,&HF3,&H80,&H64,&H80,&H41,&H1B,&H54,&HE0,2 
MEM #,&H1B,&HA1,&H4C,&H84,&H40.&H44,&HF3,&H80,0,0 
MEM #,1,&HDE,1,0,&H23,&HD3,&HD7,&HE1,17,6 
MEM #,37,22 
REM 

REM ** SIDE 2 ** 

REM 

MEM #,&H33 

MEM #,0,0,4,7,&H11,&H15,&H93,&H71,&HB1,&HC0 

MEM #,3,&HB8,2,3,&H23,&H67,&HBC,&HC0,7,&HBC 

MEM #,2,3,&H23,&H40,0,&H41,&HD3,7,&HBC,2 

MEM # , 3,&H23,&H67 ,&HBC,&HC0,3 ,&HB8,5 ,&H47,&H45 

MEM #,&H5F,&H61,&H63,&H71,&HB1,&HC0,&H1F,4,&H13,&H18 

REM 

REM ** SIDE 3 ** 

REM 

MEM #,&H2F 

MEM #,&H10,&H0C,2,&H0D,&H55,&HD7,&H61,&HC0,4,&H0C 

MEM # , 2 ,&H1 3,&H47,&H71 ,&HDD ,&HC0,7,0,3,5 

MEM #,&H61,&HDB,&HF1,&H6E,&HC1,&H0B,&H64,0,&H41,&H53 

MEM #,&H0E,&HFB,&H40,&HDE,1,&H60,0,&H5C,3,&H5F 

MEM #,&H49,&HA5,&H1F,4,1,&H18 

REM 

REM ** SIDE 4 ** 

REM 

MEM #,&H2F 

MEM # , 0 ,&H38 ,&H22,5,&H0D,&H6E ,&H1 3 ,&HA1 ,&H13,0 

MEM #,&HC0,6,&H1B,&H21,9,&H41,&H45,&H47,&HBB,&H9C 

MEM #,&HE0,0,0,1,&HD3,&H76,&H80,&H41,&H19,&H42 

MEM #,&H99,&H40,0,0,0,&HB3,&H19,&HC0,&H12,&H73 

MEM «,1,&HA1,5,&H12,1,&H14 

REM 

REM 

REM i'i* 9-7 

REM 

MEM PATAD,2,2,&HA8,&HA8,&HA8,&HA8:REM BLOCK 
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30840 MEM #,2,1,&HA9,&HA9:REM BLUE BLOCK 
30050 MEM #,2,2,&HA0,&HB0,&HA1,&HB1:REM RED STONE 
30060 MEM #,2,1 ,&HAE ,&HAF ,&H20 ,&H20 : REM BREAK STONE 4 
30070 MEM #,2,2,&H20,&H20,&HAC,&HAD:REM BREAK STONE 3 
30080 MEM #,2,2 ,&HA6 ,&HB6 ,&HA7 ,&HB7 : REM BREAK STONE 2 
30090 MEM #,2,2,&HA4, &HB4,&HA5, &HB5:REM BREAK STONE 1 
30100 MEM #,2,2,&HA2,&HB2,&HA3,&HB3:REM BULE STONE 
30110 MEM #,2,2 ,&H64 ,&H74 ,&H65 ,&H75: REM It '-7 LEFT 2 
30120 MEM #,2,2,&H62,&H72.&H63,&H73:REM It'-7 LEFT 1 
30130 MEM #,2,2,&H46,&H56,&H47,&H57:REM It'-7 UP 2 
30140 MEM #,2,2,&H43,&H58,&H49,&H59:REM It'-7 UP 3 
30150 MEM #,2,2,&H68,&H78,&H69,&H79:REM It'-7 RIGHT 2 
30160 MEM #,2,2,&H66,&H76,&H67,&H77:REM It'-7 RIGHT 1 
30170 MEM #,2,2,&H6C,&H7C,&H6D,&H7D:REM It'-7 DOWN 2 
30180 MEM #,2,2,&H6E,&H7E,&H6F,&H7F:REM It'-7 DOWN 3 
30190 MEM #,2,2,&H44.&H54,&H45,&H55:REM It'-7 UP 1 
30200 MEM #,2,2,&H6A,&H7A,&H6B,&H7B:REM It '-7 DOWN 1 
30210 MEM #,2,2,&H60,&H70,&H61,&H71:REM It '-7 4 73 4 
30220 MEM #,2,2,&H4E,&H5E,&H4F,&H5F:REM It '-7 4 73 3 
30230 MEM #,2,2,&H4C,&H5C,&H4D,&H5D:REM It'-7 473 2 
30240 MEM #,2,2,&H4A,&H5A,&H4B,&H5B:REM It'-7 473 1 
30250 MEM #,2,2,&H04,&H14,&H05,&H15:REM It '-7 SLEEP 1 
30260 MEM #,2,2 ,&H06,&H1 6 ,&H07 ,&H1 7 : REM It'-7 SLEEP 2 
30270 MEM #,2,2,&H0S,&H18,&H0 9,&H19:REM BULE It '-7 1 
30280 MEM #,2.2,&H0A,&H1A,&H0B,&H1B:REM BULE It'-7 2 
30290 MEM #,2,2,&H0C,&H1C,&H0D,&H1D:REM BULE It"-7 3 
30300 MEM tt^^.&HOE^HlE.&HOF.&HlFzREM BULE It'-7 4 
30310 MEM #,2,1 ,&H80 ,&H90 : REM It' -7 77' U 
30320 MEM #,2,2 ,&H84 ,&H94 ,&H85 ,&H95 : REM 113-3' LEFT 2 
30330 MEM #,2,2,&H82,&H92,&H83,&H93:REM 113-1/ LEFT 1 
30340 MEM #,2,2 ,&H88 ,&H98 ,&H89 ,&H99 : REM 113-3' RIGHT 2 
30350 MEM #,2,2 ,&H86,&H96 ,&H87,&H97: REM 113-3- RIGHT 1 
30360 MEM #,2,2,&H8A,&H9A,&H3E,&H3F:REM 113-3- SLEEP 1 
30370 MEM #,2,2,&H40 ,&H50 ,&H41 ,&H51 : REM 113-3- SLEEP 2 
30380 MEM #,2,2 ,&H42,&H52 ,&H43,&H53: REM 113-1/ 473 4 

30390 MEM #,2,2 ,&H8E ,&H9E ,&H8F ,&H9F : REM 113-1/ 473 3 

30400 MEM #,2,2 ,&H8C,&H9C ,&H8D ,&H9D : REM 113-3- 473 2 

30410 MEM #,2,2 ,&H4A,&H5A ,&H8B ,&H9B : REM 113-3- 4 73 1 

30420 MEM #,2,1 ,&H81 ,&H91 : REM 113-3- 77' 1/ 

30430 MEM #,2,2,&HBC,&HBE ,&HBD ,&HBF : REM 7?«it'- LEFT 2 

30440 MEM #,2,2 ,&HB8,&HBA , &HB9,&HBB: REM 77-yt®- LEFT 1 

30450 MEM #,2,2 ,&HCC ,&HDC ,&HCD,&HDD: REM 77-yt*- UP 2 

30460 MEM #,2,2 ,&HCE ,&HDE ,&HCF ,&HDF : REM 77-yf- UP 3 

30470 MEM #,2,2,&HC2,&HD2,&HC3,&HD3:REM 77»yt*- RIGHT 2 
30480 MEM #,2,2,&HC0 ,&HD0 ,&HC1 .&HD1 : REM 77-ut a - RIGHT 1 

30490 MEM #,2,2 ,&HC6, &HD6 ,&HC7 ,&HD7 : REM 77-ut*- DOWN 2 

30500 MEM #,2,2,&HC8,&HD8,&HC9,&HD9;REM 77-yt e - DOWN 3 
30510 MEM #,2,2 ,&HE0 ,&HF0 ,&HE1 ,&HF 1 : REM 77-ut*- 4 73 LEFT 1 

30520 MEM #,2,2 ,&HE2 ,&HF2 ,&HE3 ,&HF3: REM 77-yt°- 473 LEFT 2 

30530 MEM #,2,2 ,&HEC,&HFC,&HED ,&HFD: REM 77-yt*- 473 UP 1 

3^540 MEM #,2,2,&HEE,&HFE,&HEF,&HFF:REM 77-yt 4 - 4 73 UP 2 

30550 MEM #,2,2,&HE4,&HF4,&HE5,&HF5: REM 77-yt*- 4 73 RIGHT 1 

30560 MEM #,2,2 ,&HE6 ,&HF6 ,&HE7 ,&HF7 : REM 77-yt e - 4 73 RIGHT 2 

30 570 MEM #,2,2 ,&HES,&HF8 ,&HE9 ,&HF9 : REM 77-yt*- 4 73 DOWN 1 

30580 MEM #,2,2 ,&HEA ,&HFA ,&HEB ,&HFB : REM 77-yt°- 473 DOWN 2 

30590 MEM #,2,2 ,&HCA,&HDA , &HCB ,&HDB: REM 77-yt e - UP 1 
30600 MEM #,2,2 ,&HC4 ,&HD4 ,&HC5 ,&HD5 : REM 77-yt'- DOWN 1 
30610 MEM #,2,2,&H02,&H12,&H03,&H13: REM 77-yt°- 3771 
30620 MEM #.2,1 ,&H00 ,&H1 0 : REM 77-»t*- DIE 1 

30630 MEM #,2,1 ,&H01 ,&H1 1 : REM 77*yt°- DIE 2 

30640 MEM #,2,2,&H20,&H20,&H20,&H20:REM NULL PAT. 

30650 MEM #,2,1,&H20,&H20:REM NULL PAT.2 

30660 MEM #,2,2 ,&H20 ,&H20 ,&H81 ,&H91 : REM 113-7 77'1/ 2 

30670 MEM #,2,2,&H20 ,&H20 ,&H80 ,&H90 :REM It'-7 77*1/ 2 

30680 MEM #,1,1,&H21 

30690 MEM #,1,1,&H20 

30700 MEM #,2,1,&HAA,&HAB 

30710 MEM #,2,2,&H20,&H20,&HAA,&HAB 

30720 MEM #,2,2,&H20.&H20,&H00,&H10 

30730 MEM #,12,1,32,32,32,32,32,32,32,32,32,32,32,32 
40000 GOSUB 19000:RETURN 
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dB-IBASIC/dB-COMPILER 
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(5) 3 7fl 'EfcZtltzt-ri; 3- 7 Hi#RAM_t!c&&X>T\'?-<7>T 

7"->** ? h £JL&*#£-fi, rA-x F -M > 

ex. A = B + C*Dli, k<X> Xltct y" : J x. X Y tLX fFBfc § tl £ 1~„ 
LD HL, (VARC] 

LD DE, (VARD] 

CALL MULT 
LD DE, (VARB] 

ADD HL, DE 
LD [VARA], HL 
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